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27 .LIST SEQ 

29 .TITLE QABM DEC/Xll STANDARD MONITOR 

29 000000 .ASECT 

30 000000 .30 
31 

32 .GLOBL LCnR12,HCOR12,OACNV,BDCMV,WODQ,CLOCffL,CL0CKP 

33 .GLOBL KWl lL,KWilP,HMS, HOURS, WCASE.WCASEE, CLOCK 

34 .GLOBL OFFSET, HONGCK,HNGTI«,LCLEAP,PCLF,AR,CHKSUM 

35 .GLOBL TKS,TKB, TPS, TPB,FILCNT,FILLICB,SP,PAMNUM, CAST 
J6 .GLOBL HODCNT,MODCTR,PASPEL,PELOC,ALLBK,KTPPES,PWRCNT 
37 

39 l»»»»»»IF RUNNING WITH AN 11/60 AND ANY SYSTEM TYPE ERROR OCCURS 

39 I (TRAP TO 4, ETC.) "LOGBUF" WltjL CONTAIN 

40 f THE CONTF^TS OP SCRATCHPAD T/nCATIOKS FBOW (1-177, SCRATCHPAD 

41 i LOCATIONS 100-107 ARE PRINTED OUT, 
42 

43 jSWITCH REGISTER OPTIOHSi 
44 

45 |SR15"1 HALT MODULE AFTER ERROR. 

46 fSRl4»l INHIBIT MODULE HALT AFTER 20 ERRORS. 

47 »SR13»1 INHIBIT ERROR PRINT, 

48 |SR12«1 ENABLE ENDPAS PRINTOUT, 

49 |5R10»1 PRINT ALL DATA ERRORS IN BUFFER 

50 |SR9«1 INHIBIT "RELOCATED TO " MESSAGE 
51 

52 jMODULE STATUS BIT DEFINITIONS! 
53 

54 I BIT 15«1 lOMOD 

55 I BIT 14«1 MODULE SELECTED 

56 I BIT 13»1 MODULE DROPPED 

57 I BIT 12»1 EXTENDED MODULE 

58 J BIT U"l DESELECT IF PROGRAM IS RELOCATED 

59 I BIT 10»1 DESELECT IF NOT ON AN EVEN 32K OFFSET 
«0 t BIT 09*1 N8KM0D 

«)1 I ALL O'S SBKMOD 
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l» rtV nEriNITIONS. 



SEO 0005 



PO 


■ %0 


IGENEPAL PURPOSE REGlSTrR 


Rl 


■%1 


(OENERAl PURPOSE REGISTER 1 


P2 


■*2 


iGE^GRAL PURPOSE REGISTER 2 


R3 


■ % 3 


1 GENERAL PURPOSF^ REGISTER 3 


R4 


■%4 


1 GENERAL PURPnSF REGISTER 4 


R5 


»*5 


jGENRRAT.. PURPOSE RFGISTER 5 


R6 


•%6 


IGENERAL PURPOSF REGISTER « 


5P 


■*6 


IPOINTER TO HARDWARE CSYSTEM DEFAULT) STACK 


PC 


■%7 


JPROGPA" COUNTER 


PS 


■177776 


(PROCESSOR STATUS REGISTER 


PSW 


■177776 


1 PROCESSOR STATUS WORD 



HARDSR ■177570 fHARDWAPE SWITCH REGISTER 



SSRO 
SSR3 



■177572 jMKMOPy VANACEMFNT REGISTER 
•172516 jMEMORY MANAGEMENT REGISTER 3 



WAPREG ■17O200 jBASE ADDRESS OF UNIBUS NAP BOX (U/70) 
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82 
R3 
S4 
95 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 



076600 
000101 
000102 
000103 
000104 
000022 
000222 

J 77772 

140000 
040000 

172300 
172302 
172304 
172306 
172316 
172340 
172342 
172344 
172346 
172356 



MED 

RD5ERV 

RPPBA 

RDCUA 

PDFGIN 

RDHHHI 

WTWHMI 



ilMODE 
SMODE 

KIPDRO 
KIPDRl 
KTPDR2 
KIP0R3 
KIPDR7 
KIPARO 
KIPARl 
KIPAR2 
KIPAR3 
KIPAR7 



■76600 

■ 101 

■ 102 

■ 103 

■ 104 

■ 022 

■ 222 



PIRORG ■177772 



■140000 
■40000 

■172300 
■172302 
■172304 
■172306 
■172316 
■172340 
■172342 
■172344 
■172346 
■172356 



105 
106 


177600 


UIPDRO 


■177600 


;USER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 





107 


177602 


UIPDRl 


■177602 


(USER 


TNSTRUCTIO" 


PAGE 


DESCRIPTOR 


REGISTER 


1 


108 


177604 


UrPDR2 


■177604 


lUSER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 


2 


109 


177616 


UIPDP7 


■177616 


(USER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 


7 


110 


177640 


UtPARO 


■177640 


lUSER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 





111 


177642 


UIPARl 


■177642 


lUSER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTF-R 


1 


112 


177644 


UIPAR2 


■T77644 


tUSER 


INSTRUCTTON 


PAGE 


ADDRESS 


REGISTER 


2 


113 


177656 


UIPAR7 


=177656 


(USER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 


7 



MAINTENANCE EXAMINE «ND DEPOSIT INSTRUCTION CU/(<n) 

LOG SERVICE PEG. ADR -» P5;aD 

LOG PHYSICAL BUSS ADR. REG. ADR. -- READ 

LOG CURRENT MICRO ODR. REG, »DR, -- READ 

LOG FLAG/INtfRPUPT REG. »DP. -- HEAD 

GEN, WHO AM I PEG, ADR, -- READ 

GEN, WHO »« I RFC-, »0R. -- WRITE 

PROGRAMMED INTERRUPT REQUEST REGISTER 

BIT CONFIGURATION TO I>'DtCaTE USER MODE IN PSW 

BIT CONFIGURATION TO INDIC^TE SUPERVISOR MODE IN PSW 



KERNFL 
KERNEL 
KERNEL 
KERNEL 
KERNFL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 



INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTIOW 
INSTRUCTION 
INSTRUCTION 



PAGF 
PAGE 
PAGE 
PAGE. 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPT"P 
ADDRESS 
ADDRESS 
PDDRESS 
ADDRESS 
ADDRESS 



REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 
REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 



QkBN OCC/XU 8TAND»R0 MONITOR MACYtl 37(1006) 23-APR-77 QOiU PAGE S 



DXOABM.PU 


31-APR-77 13143 




114 


000004 


PIROt 


! t§ 


nnoooo 


OPEN 


116 


lobooo 


BIT15 


117 


040000 


BIT14 


119 


030000 


BIT13 


119 


oloooe 


BIT12 


130 


004000 


BITll 


131 


003000 


8TT10 


133 


001000 


B1T9 


133 


000400 


BITS 


134 


000200 


BIT7 


135 


000100 


R1T6 


136 


000040 


BIT5 


137 


000030 


BIT4 


138 


000010 


BIT3 


139 


000004 


b:t2 


130 


000002 


BTTJ 


131 


000001 


BITO 


133 






133 


000340 


PBTy7 


134 


000300 


PBTie 


135 


000340 


PRTYS 


136 


000200 


PHTY4 


137 






138 


005746 


fliSii 


139 


024646 


PUSH2 


140 


005736 


POPSP 


141 


022626 


P0PSP2 


142 






143 


000100 


IE 


144 


000040 


KBUFL 


145 


000620 


lOQL 


146 


001130 


TYROL 


147 


031222 


TVPLIM 


148 


030072 


lOQLIM 



SEQ 0007 



■ lOT 

■ 

slOOOOO 
■40000 
B20000 
■iOOOO 
• 4000 

■ 2000 

■ iOOO 

■ 400 

■ 200 

■ 100 

■ 40 
■20 

■ 1" 

■ 4 

■ 2 

■ 1 

■ 340 

■ 300 

■ 240 

■ 200 

■OoS74b 
■024646 
■005726 
■022626 



MAKE THE PIPO CALl 
USE OPEN TO DECLASH 
BIT 15 DKriNITION' 
BIT 14 DEFINITION 
BIT 13 DEFINITION 
BIT i; OEFIHITIDW 
BIT 11 OEFIMTIOM 
BIT 10 DEFINITION 
BIT 9 DEF7NITIGK 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



i TRAP THROUGH THE IHT ','ECTDR 
ALL VASIiBLES AS BEf-pE 3Ti 



8 DEFI 



7 DJFI 
6 DEFI 
5 DEFI 
4 DEFI 
3 DEFT 
2 DEFI 
1 DEFI 
DEFI 



NITION 
NITION 
NITION 
KITIOK 
NITION 
NITION 
NITIQM 
NITIOM 
NITION 



BIT CONFIGURATION FOR PRIORITY LEVEL 7 IN PSt< 
BIT CONFIGURATION FOR PRIORITY LEVEL 6 IN PSW 
BIT CONFIGURATION FOR PRIOBITY LEVEL 5 IN PSH 
BIT CONFIGURATION FOR PRIORITY LEVEL 4 IN PSW 

fST "(Spj jsiiSEu TO ADD A 5<DSD 70 THE 5TACS 

CMP -(SP),-CSP) ljUSED TO PUT TWO WORDS ON THE STACK 

TST CSP)+ fjUSEO TO DF.LETF. A WORD FROM THE STACK 

CMP CSP)+. CSP)+»USEO TO DELETE TWO WORDS FROM THE STACK 



aBTT6 jDEFINITION OF INTERRUPT FN^BLE BIT FOR ALL PDP-lt DEVICES 

■32. iDEFINITION OF KEYBOARD BUFFER LENGTH (IN WORDS) 

■400. jDEFINITION OF INPUT/OUTPUT SERVICE QUEUE LENGTH(IN BYTES) 

■eon. jDFFINITION of typing queue length (IN BYTES) 

sTYPEQ+TYPQL j DEFINITION OF LAST WORD IN TYPE QUEUE 

■ lOO+IOOL sDFFI'-JITION OF LAST *'nRO IN I/O QUEUE 
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149 




ITHF FDLLOWI 


150 




iMONITOR INS 


151 








152 


000005 


XFLAG 


=5. 


153 


000020 


STAT 


■16. 


154 


000021 


STATl 


■l'. 


155 


000022 


INIT 


= 18. 


156 


000024 


SPOINT 


■ 20. 


157 


000026 


PSCNT 


= 22. 


158 


000030 


EPCNT 


=24. 


159 


000032 


SVRO 


■ 26. 


160 


000034 


SVRl 


■ 28. 


161 


000036 


SVP2 


■ 30, 


163 


000040 


SVR) 


■33. 


163 


000043 


SVR4 


■34. 


164 


000044 


SVB5 


■36. 


165 


000046 


SVB6 


■ 38. 


166 


000050 


esRA 


■ 40. 


167 


O00O52 


ACSR 


■42. 


168 


000052 


SBADR 


■42. 


1*9 


000054 


ASTAT 


■44. 


170 


000054 


WASADR 


■ 44. 


171 


000056 


A SB 


■ 46. 


172 


000060 


AWAS 


■ 48. 


173 


000062 


RSTPT 


■ 50. 


174 


000064 


RBUFVA 


■52. 


175 


000066 


BBUFPA 


■54. 


178 


000070 


RBUFEA 


■ 56. 


177 


000072 


RRUFSZ 


■58. 


178 


000074 


W8UFPA 


■60. 


179 


000076 


WBUFEA 


■ 62. 


ISO 


000100 


WBUFRO 


■64, 


181 


000102 


WBUFSZ 


■66 . 


182 
183 









HONS WHEN REFFRRTNG TD LOCATIONS IN THE HEADER OF A MODULE 

»RFFERENCF USED TH KEEP TRACK OF WRITE BUFFER USAGE 
J POINTS TO THE LOW BYTE OF THE MODULE STATUS i<ORD 
IPOINTS TD THE HIGH BYTF OF THE MODULE STATUS WORD 
IPOINTS TO THE MODULE 'S STARTING ADDRESS 
IPOINTS TO THE MODULE'S STACK POINTER 

IREFERENCES THE LOCATI0^' KSlfpTNC TRACK OF THE NUMBER OF PASSES 
J REFERENCES THE LOCATION KEFPING TRACK OF THE NUMBER OF ERRORS 
iPOINTS TO WHERE THE MODULE'S REGISTER CONTENTS ARE STORED 
iPOINTS TO WHERE THR MODULE'S REGISTER 1 
jPOINTS TO WHERE THE MOHULE'S REGISTER 2 
• POIMI^ TO UHCRi: THE HOOUbB'S RCCI&XER 3 
(POINTS TO WHEHF THF MODULE'S REGISTER 4 
IPOINTS TO WHCPK THE MOOULF'8 PfGISTER 5 
rPOINTS TO WHERE THF MODULE'S REGISTER 6 
(REFEPENCES THE BASE ADDRESS OF THE MODULE'S DEVICES(C0NTROL AND 
(REFERENCES THE CONTENTS OF THE CONTROL AND STATUS REGISTER 
(POINTS TO THA ADDRESS OF WHAT THE DATA SHOULD HAVE BEE" 
(POINTS TO ANYSTATUS HEGISTFRNOT THE SAME AS THE C5R 
(POINTS TO THE ADDRESS OF WHAT THE DATAWJS 
(POINTS TO THEACTUAL EXPECTED DATA 
(POINTS TO THE ACTUAL RECEIVED DATA 
(POINTS TO THE MODULE RESTART ADDRESS 
(REFERENCES THE VIRTUAL ADDRESS OF THE READ BUFFER 
(POINTS THE LOCATION FOR THE PHYSICAL ADDRESS OF THE READ BUFFER 
(POINTS THF EXTENDED ADDRESS BITS OF THF READ BUFFER 
(POINTS THF SIZF HF THE READ PUFFER 
(POINTS TO THE WRITE BUFFER PHYSICAL ADDRESS 
(POINTS TO THE EXTFMDCO ADDRESS BITS OF THE wpITE BUFFER 
(REFERENCES THE AMOUNT OF WRITE BUFFER REQUESTED BY MODI'LF 
(REFERENCES THE SIZE OF THE WRITE BUFFER 



CONTENTS ARE STORED 
CONTENTS ARE STORED 
COHTEKTS ARC STORED 
CONTENTS ARE STORED 
CONTENTS ARE STORED 
CONTENTS ARE STORED 
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184 iLOAD TRAP AND VECTOR AREA 
195 
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A A A A A A 

U U 11 U U 1^ 




sO 








y u uu uu 


AAAAAA AAAAAA 

UUUUUv WVvKf'J 




WORD 


1 n 




1 BR 


1 J u U U V ^ 


01 5246 


Busevi 


BU8EPR 




J BUS CP POP TRAP POI*'TCR 


1 aa 


uo UO I'O 


A A A 1 A A 




PPTYT 






ton 


n AAn 1 A 


015276 


f)C5IV| 


RESINT 




J RESERVED INSTRUCTION TRAP , 


« a< 

' 'i 


Aft A n 1 9 


A A A 1 A A 




PRTY7 






193 


A AAA 1 A 


A AC 7 A A 


TRCVi 


TRCI 




{TRACE TRJ^P POT'^TER 


193 


0000 I 6 


000000 










194 


p00030 


0064 1 6 


TQTVi 








195 


0000?2 


000340 




PFTT7 




■ DPETVrUT r DUFD T VWf U HA TIT IT VDnU ^DMTIU^ 


196 






pWltFV t 






jJur Ur niulCtH uC^vrij Ul«&3 


197 


0000*4 


ft 1 5 460 


PWRDN 




] POWER FAIL POINTER 


198 


000036 


A A A 1 A A 










199 


A A A A 9 A 


A A A A 1 9 




^2 




;E^T POINTER 


200 


AAAA 19 


AAAAAA 




HAIiT 






201 


000034 




TRPVi 


TRPXNT 






202 


000036 


000000 










203 




AAAAAA 










204 


A A A A A A 


AAAAAA 


DDPPTR 1 


*WORD 





J LOAD '^'IEDIU'^1 INDICATOR 


205 


A A A A A 9 


AAAAAA 


WORD 




tCH6 T N MODE ONLY Pni'fTS TO DCP'^O^ 


206 


0000^4 


000000 






J: 




207 


000046 


0161 34 




LOGIC 






209 


000050 


000000 




OPEN 






209 


000052 


oooooo 




oprw 






210 


000054 


OOOOOOG 




CAST 




jCLOBAL POINTER FOR CAST MODIFICATION 


211 


000056 


000001 




1 




talso for CST 


?12 




000060 




• ■60 






213 


000060 


006552 


KYBOVi 


KB8RVC 




fKYPD INTERRUPT POl^iTER, 


214 


O00062 


000340 




PRTYT 






215 


no0064 


001526 


TTPIVt 


TTY5PV 




^TELETYPE pniMTER SERVICE 


216 


000066 


000200 




PRTy4 
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217 jFROM 70 THROUGH 776 FILIED WITV , + 2 AND -lAM. 

218 

219 

220 

221 000114 ."lU 

222 000114 015872 PARVCT« PAREPR jPARITY ERROR INTFRUPT POINTFR 

223 000116 000340 PRIY7 
224 

225 

226 iLOAD STARTING ADDRESSES 

227 

228 000200 .1200 

229 000200 000167 001330 JMP START jGO TO STAPT OF wnxlTOR, 

230 001000 .BlOOO 

231 OOlOOO 000167 000530 JMp START :G0 TD ST4FT OF MONITOR. 
232 

233 

234 001004 OOOnOO riKESRi OPEN ;LOC»TION OF PSEUDD SWITCH REC,, wHE« UStD 
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SEQ 


235 






(VARIABLE DATA 


AREA CLEARED 


EVERY TIME RUN IS ISSUED OR IS TYPED 




236 
















25" 


□OioOd 


nOu 






OPEN 


'ICO'JE' AND TYP(3UE MUST BE IN SAME isOPD ' ' 




238 


001007 


000 


TYPOUEl 


.BYTE 


OPEN 






239 


001010 


000 


SPCrLG j 


.BYTE 


OPEN 


jSPCFLG ANn DIRIND «<UST BE IN SAME WORDS i 




240 


OOlOl 1 


000 


DlRlND j 


.BYTE 


OPEN 






241 


001012 


000 


BKQTJEl 


.BYTE 


OPEN 






242 


001013 


000 


BRAKEl 


.BYTE 


OPEN 






?43 


001014 


000 


TTYBSYl 


.BYTE 


OPEN 


jTELETYPE Bl'SY FLAG. 0= NOT BUSY. 




244 


001015 


000 


KODCTi 


.BYTE 


OPEN 






245 


001016 


000 


MOOCTRl 


.BYTE 


OPEN 






246 


001017 


000 


ERRINDi 


.BYTE 


OPE« 


|0«ERR0R, NOT 0"DATS ERROR, 




247 


001020 


000 


rlliCTRl 


.BYTE 


OPEN 






24B 


001031 


000 


MDXCTRj 


.BYTE 


OPEN 


•EXTENDED I/O MODULES NOT YET HUN XN CURRENT 


BANK 


249 


001022 


000 


MDXCNTI 


.BYTE 


OPEN 


lEXTENDED I/O MODULE COUNT 




250 


001023 


000 


H6FLS1 


.BYTE 


OPEN 


^CURRENT VALUE OF XELAG BEING CHECKED FOR 




2S1 


001024 


000 


STOPl 


.BYTE 


OPEN 


»STOP MODULES TO RELOCATE PROGRAM 




252 


001025 


000 


BKCNTt 


.BYTE 


OPEN 


tBACKGROUND module COUNT 




253 


001 026 


000 


XCNTI 


.BYTE 


OPEN 


rPUNNABLE EXTENDED MODULE COUNT (TO CALCULATE 


ROTCTl 


254 


001027 


noo 


QUECTRi 


.BYTE 


OPEN 






255 


001030 


000 


xrprLGt 


.BYTE 


OPEN 






356 


001031 


000 


ROTCT 1 


.BYTE 


OPEN 


jVALUE USED FOR BUFFER ROTATION TIMEOUT (IS TIMES 


257 












iXCN'T OB 377* WHICHEVER IS SMALLER) 




256 


001 032 


000 


PASTOTl 


.BYTE 


OPEN 


(ALTERNATE RELOCATION COUNTER" TOTAL ENDPASS 
















(CALLS TN CURRENT BjNif 




260 


001 033 


000 


PASREIit 


.BYTE 


OPEN 






261 


001034 


000 


BKTIHRt 


.BYTE 


OPEN 


(BKMOD INSTR CTR- LOADED FROM BKTIME 




262 


001035 


000 


roti 


.BYTE 


OPEN 


jWBUF ROTATION RATE CTR- LOADED FROM ROTN 




263 








.EVEN 








364 


001 036 


000000 


KBPTRl 


OPEN 








265 


901 040 


000000 


HODPTRs 


OPEN 




(MODULE PniNTEP 




266 


001042 


000000 


ADDRLOi 


OPEN 








267 


001 044 


000000 


ADDRHIl 


OPEN 








268 


001046 


000000 


NUMBERl 


OPEN 








269 


001050 


000000 


NUMBPAl 


OPEN 








370 


001052 


000000 


NUMBEAl 


OPEN 








271 


001 054 


000000 


DSTADRl 


OPEN 








272 


001056 


000000 


SRETRN) 


OPEN 








273 


001060 


000000 


lOBKIDi 


OPEN 








274 


001062 


000000 


YESi 


OPEN 








275 


001064 


000000 


TABADR) 


OPEN 








276 


001066 


000000 


PSTATi 


OPEN 








277 


OOtOTO 


000000 




OPEN 








278 


001072 


nooooo 


TRCPSWi 


OPEN 








379 


001074 


onoooo 


lOOll 


OPEN 




(I/O QUEUE POINTERS. 




280 


001076 


nooooo 


I0p2 1 


OPEN 








281 


001 100 


000000 


TYPQl J 


OPEN 




[LOAD TYPE QUEUE POINTER 




282 


001 1 02 


000000 


TYPQ2I 


OPEN 




(UNLOAD TYPE OUEUF POINTER 




283 


001 104 


000000 


TYPAORj 


OPEN 








284 


001 106 


000000 


TYPRETl 


OPEN 








285 


001 110 


000000 


TYPCTPi 


OPEN 




(USED TO MONITOR CO^'SOLF TELETYPE TO PREVENT 


HANGING 


286 


001112 


000000 


OASCEAl 


OPEN 




(USED Tn HOLD EA BITS EHP OCTAL TO 




287 












(ASCn COV'VERSTON 




288 

289 


001114 


000000 


HODWPAj 


OPEN 








290 


001116 


000000 


MOOWEAj 


OPEN 
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291 


001 120 


000000 


M0DW121 


OPEN 




292 


001 122 


nooooo 


MODRPA{ 


OPEN 




293 


001124 


onoooo 


MOOREAj 


OPEN 




294 


001 126 


000000 


M0DR12J 


OPEN 




995 


001130 


000000 


DERRCTf 


OPEN 




296 


001132 


000000 


SAVLO{ 


OPEN 




297 


001 134 


000000 


SAVHI( 


OPEN 




298 


001136 


000000 


MODADRi 


OPEN 


(ADDRESS OF CURRENTLY EXECUTING (lOQ LEVEL) 


299 


001140 


000000 


TYPPK 


OPEN 


(SAVE LOCATIONS FOR TYPE ROUTINE REGISTERS 


300 


001142 


000000 


TYPR2( 


OPEN 




301 


O0H44 


000000 


TyPR3( 


OPEN 




302 


001146 


000000 


TYPR4( 


OPEN 




303 


001150 


onoooo 


TYPR5: 


OPEN 




304 


001152 


nooooo 


SP5AV( 


OPEN 




305 




000000 


ersposi 






306 


nnu56 


000000 


CDFLGs 


OPEN 


(INrsiCiTE i5Pf>tB'J TO CEri^DATA ROU'^INE 


307 


001 160 


nooooo 


CCSRA( 


OPEN 





308 
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JtO 
311 






iVARIABtE AND F 


IXED 


D*T» »REA 


NOT CLEARED «HEK PVi OR "C IS ISSUED 


313 


001163 


177560 


IKSJ 


177560 








313 


001 164 


177563 


TKBl 


177563 








314 


001166 


177564 


TPSi 


177564 




»IF THIS ANO NEXT IPC ARE CHANGED, 


315 


001170 


177566 


TPBl 


177566 




fCHANGE LOC.S LPWKl AND LPWKJ IF PRESENT 


316 


001172 


177514 


LPSi 


1775)4 








317 


001174 


177516 


IiPBt 


177516 








318 


001176 


177570 


SRt 


177570 






jADDRESS OF THE SWITCH REGISTER 


3t9 


001200 


123456 


RABNUMi 


123456 




IRANDOM NIIMRER IS CALC'ED AND PASSED HERE 


330 


001203 


023333 


RAHHRKl 


23333 




f ALSO 


USED BY RAND. 


331 


001304 


000000 


MEHVAf 


OPEH 








333 


O01306 


000000 


MEMpAt 


OPEN 








333 


00)310 


000000 


HEME At 


OPEN 








334 


001212 


000000 


MEM12I 


OPEM 








335 


001214 


000000 


MEMSBEl 


OPEN 








336 


001216 


000000 


MEMUASi 


OPEN 








337 


001230 


000000 


IiOCOREl 


OPEN 






• STARTING ADDR "F FOEE CORE ('1ULTIPLE OF 1000 OCTAL) 


338 


001233 


000000 


ZEROl 









;LOCORE EA BITS 


339 


001334 


000000 


LC0R12t 


OPEN 






»TOP 12 BITS OF LOW CORE ADDRESS 


330 


001336 


000000 


HC0R12I 


OPEN 






iCONTAINS ST. ADDR OF HIGHEST BUFFER, 


331 














; (TOP 12 BITS ONLY) 


333 


001330 


000000 


HCORSV: 


OPEN 








333 


O01232 


001534 


WBuri 


START 






-CONTAINS CUBRE»!T hRITE BUFFER SDDR, 


334 


001234 


000000 


HBFEAi 


OPEN 






jWRTTE BUFFER El BITS (SHIFTED TO POS 4.5) 


335 


001236 


nooooo 


WBUri2« 


OPEN 






:TOP 12 BITS OF «BUF AD1RF:SS IF USING POTATTQ*' 


336 


0012*0 


000000 


PFFHXI 


OPEN 






(TOP ALLOWABLE PROGHAM OFFSET 


337 


001242 


000000 


blTSETi 


OPEN 






(CURRENT PRnGRA« OFFSET 


338 


001244 


000000 


orrsTD: 


OPEN 






(DESTINATION OFFSET 


339 


001246 


000000 


OFFSTMj 


OPEN 






jSAVE LOCATION FOR OESTINATIO" OFFSET 


340 














jDURING MOVE 


341 


O01250 


000000 


MOVBNKi 


OPEN 






:BANK BEING "OVED (ROtlRCE ADDRESS) 


343 


001252 


000000 


WAPRETl 


OPEN 






: RETURN ADDRESS FROv "VCOPE ROUTINE 


343 


001354 


000034 


ERRliIWj 


20, 








344 


001256 


013000 


HXWBF J 


AHODNM- 


START/2tl77000 


;MAX SIZE OF WRITE BUFFER, VARIES 


345 














!lF SUFFER OQTATION IS ENABLED 


346 


001260 


000000 


TTYBYTl 


OPEN 








347 


001262 


000000 


CXRETl 


OPEN 






SCTRLX BETURN ADDRESS 


348 


001264 


000000 


SYSCNTl 


OPEN 






(TOTAL NUMBER OF SYSTEM ERRORS 


349 


001266 


000000 


P»RCMTi 


OPEN 






(TOTAL NUMBFR OF POWER FAILS 


350 


O01370 


000000 


BKpTRl 


OPEN 






(QUEUE POINTER INITIALIZATION FOR RUNNING BF^ODS 


351 


001272 


000000 


KTSAVl 







lUSED 


FOR SECOND PASS Iti CHAIN MODE TO 


353 


001274 


000000 


HCR12At 







t RESTORE TRUE STATE OF SYSTEM 


353 


001276 


177600 


PORTABi 


177600 








354 


O01300 


173300 




172200 








355 


001303 


172300 


PDRENDl 


172300 








356 


001304 


000000 


KTPRESi 


OPEN 






(Oa IKHIBITEn OR •lOT PRESENT (LEAVE AS FULL 


357 














(WORD FOR EASY MODIKICATinN A^'D TO GUARANTEE 


358 














(THAT FILCNT AND FILLER ARE IN SAME tiURD) 


359 


001 306 


014 


FILCNTI 


.BYTE 


12. 




(FILCNT AND Flt.LFR ^UST BE IN SAME WORD 


360 


001307 


000 


FILLER 1 


.BYTE 









361 


001310 


000 


SYSERll 


.BYTE 


OPEN 






363 


001 31 1 


000 


RMOOEi 


.BYTE 


OPEN 




(RUN ■<ODE IK'DICATOR 


363 


001312 


000 


CHNj 


.BYTE 


OPEN 






364 


001313 


noo 


POTIl 


.BYTE 


OPE" 






365 


001 314 


ooo 


ROTLl 


.BYTE 


OPEK 




(WRITE PUFFER ROTATinU LOCKED FLAG 
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366 


001315 


000 


RELOC t 


.BYTE 


OPEN 


367 


00) 316 


onooon 


ROTCNTi 


OPEN 




368 


001330 


000100 


ROTNUM! 


100 




369 


001 122 


000400 


ROTSIZl 


400 




370 


001 324 


000 


FILLIDt 


.BYTE 


OPEN 


371 


nol 325 


000 


MOVING! 


.BYTE 


OPEN 


372 


001326 


000 


RONRFLj 


.BYTE 


OPEN 


373 


001327 


000 


LOCKl 


.BYTE 


OPEN 


374 


001330 


000 


MVOOWNj 


.BYTE 


OPEN 


375 


"01331 


000 


RETRY t 


.BYTE 


OPEN 


376 


001 332 


010 


OUECNTi 


.BYTE 


10 


377 










378 


001333 


000 


MDL4SI 


.BYTE 


OPEN 


379 


001334 


000 


iSHBFCt 


.BYTE 


OPEN 


380 


001335 


000 


MEMERFl 


.BYTE 


OPEN 


381 


001336 


010 


BKTIMEl 


.BYTE 


10 


383 


001337 


003 


ROTM! 


,BYTE 


3 


383 












384 


OOI34O 


000 


PPRESi 


.BYTE 


OPEN 


385 


001 341 


000 


CNTll 


.BYTE 


OPEN 


386 


00) 342 


000 


ATEi 


.BYTE 


OPEN 


387 


001343 


000 


MFLAGl 


.BYTE 


OPEN 


388 


001344 


000 


MNGFLGl 


.BYTE 


OPEN 


389 


001345 


000 


MOVFlGl 


.BYTE 


OPEN 


390 


001346 


000 


MSGFLGt 


.BYTE 


OPEN 


391 


001347 


000 


OATFLGl 


.BYTE 


OPEN 


393 


001350 


012 


SYSLIMi 


.BYTE 


10. 


393 


001351 


000 


TELAGl 


.BYTE 


OPEN 


394 


001352 


000 


NSTOPi 


.BYTE 


OPEN 


395 


001353 


000 


CLOCKi 


.BYTE 


OPEN 


396 


001354 


000 


ALLBKt 


.BYTE 


OPEN 


397 




001356 




.EVEN 


398 


O013S6 


oooeooG 


CLOCKLl 


KWllL 




399 


001360 


000000c 


CLOCKPi 


KWl IP 




400 










401 


001362 


001604 


HNGTIMI 


900, 




403 


001364 


OOOOOOG 


ALCLRi 


LCLEAR 




403 


001366 


OOOOOOG 


APCLRl 


PCLEAR 




404 













(RELOCATION ALLOKED FLAG 
(ROTATION COUNTER USED WITH ROTL 
(ROTATION CONSTANT USED WITH ROTCNT 
(ROTATE PROGRKM BY BK 
(FILL INDICATOR. 
(CODE BEING PFLOCATED 

(PREVENT ROTATIOf! OF CODE EXECUTION 

(RETRY COUNT FOR CODE RELOCATION 

(# OF TIWES TO CHPCK lOOUE BEFORE CHECKING 

(TYPED WHEN BOTH HAVE BEQUESTS PENDING 

(NON-ZERO IF CP" IS 11/45 

(WRITE BUFFER ROTATION COUNT 



(» OF G'<iBUF CALLS (LESS ONE) NEEDED PEP 
(ROTBUF CALL 

(PARITY PRESE'.'T, OalNHIBITED OR NONEXISTENT 



(FLAG INDICATES CKHUNG ROUTINE IS BUSY 
(FLAG USED IN MVCODB pnUTlNE 
(FLAG INDICATING "SGN OR VSGS CALL 
(FLAG INDICATING CKDATA OP DATACK CALL 
(MAX. NUMBER OF SYSTEM ERRORS ALLOWED 
(TIMER FLAG INDICATING ERROR OB EOP 
(FLAG PREVENTING STOP FPO" BEING SET 
(CLOCK FLAG 

(WHEN NON MEANS RUN ALL BKMODS BEFORE RELOCATING 

(WILL BE IF No KWU-L CLOCK 
(WILL BE IF NO KW11-P CLOCK 

(HUNG TIME LIMIT IN SECONDS 

(SUBROUTINE ADDRESS IN L CLOCK MODULE 

(SUBROUTINE ADDR IN p CLOCK MODULE 

(WILL DROP ANY I/O «ODULE INACTIVE FOR 15, MINS, 



QABM DEC/XU STANCkRD MONITOR 
DXQABM.Pli 31-APR-T7 12143 



409 






49S 






407 






401 






409 






410 






4it 


001370 


137577 


413 


901173 


003641 


411 


901374 


001834 


414 


001376 


039106 


415 


OOI4OO 


137607 


41C 


001403 


003641 


417 




001409 


411 


60UOS 


000003 


419 


001410 


000000 


430 


001412 


000000 


431 


001414 


000000 


433 


00U16 


000000 


433 


601420 


000000 


434 


001433 


000000 


435 


001424 


600000 


43$ 


00M3S 


000000 


437 


901430 


000030 


43i 


ooi4?e 


000000 


439 


001472 


000000 


430 


001474 


000000 


431 


001476 


177746 


433 


601900 


000000 


433 






434 
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t ••• 00 NOT CHANGE THE SEQUENCE OF THE NEXT 9 WORDS ••• I 

iREFCP TO THE DOCUMENT FOR THE MONITOR CHECKSUM MODULE (BKBA) 

iFOR THE USE OF THE NEXT SIX HORDS, AND HON THE TWO "OPEN* LOCATIONS 

I ARE DEFINED HHEN A NEW VERSION OF THE MONITOR IS RELEASED 



SEQ 0015 



CHKL3I 
CHKH3t 

CHKSilMi 

CHKLlf 
CHKHll 

HOURS i 

NINITSi 

8EKNDS1 

RIIHEi 

RTIMXi 

CLKADRj 

CLKHLDi 

PTIMEi 

MAXTIMl 

PARTABi 

CPUERRI 

HtnsWf 

LGHOLDf 

CONTRLi 

KOHTRLt 



137577 

3641 

,WPRD 

.NORO 

137607 

3641 

.ODD 

.BLKB 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.BLKH 

OPEN 

OPEN 

OPEN 

177746 



.EVEN 



ILOH CHK8UN FOR PROC. WITH NO RTT INST. 
iHIGH CHKSUM 

START (BEGIN ADDR OF MONITOR PURE AREA 

HCASEE I END ADDR OF MONITOR PURE AREA 

(CONTAINS LOW CKSM OF MONITOR PURE AREA {PROC HUH RTT} 

(CONTAINS HI CKSM OF MONITOR PUPE AREA 

3 (HOURS IN ASCII 

(MINUTES IN ASCII 

(SECONDS IN ASCII 

(TOTAL ELAPSED RUNTIME IN SECONDS 

(HOLDS RUNTIME EXTENDED BITS 

(SAVE LOCATION FOR CLOCK ADDRESS 

(SAVE LOCATION FOR CLOCK CSR 

(HOLDS MODULE PASS TIME IN SECONDS 

(HOLDS MAX. ELAPSED TIME FOR CKHUNG ROUTINE 
16. (TABLE OF PARITY REGISTER ADDRESSES 

(ADDRESS OF 11/60 CPU ERROR REG. 

(ADQRSSS OF ii/60 He^OSi ZmQ'S. t>SS, 

(HOLDS CONTENTS OF ERROR LOG REG. LAST READ/WRITTEN 
(CACHE CONTROL REG 
(TEMP STOR FOR CACHE OPERATIONS 
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001502 
OOI5O6 

ooi;i3 
onisi4 



001S26 
001530 
Q0153J 



012700 001512 
000167 001304 
000000 
000000 



001516 104421 
001920 0»)0000 
001522 000167 006736 



000004 
007436 
000000 
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(VARIABLE QUE CALL AREA- KEPT IN FRONT OF START 5TNCE IT IS IMPURE CODE 

(COMMON "QUE CALL" ROUTINE. DOES A DIRECT DISPATCH RATHER THAN 
(REOUEINO DUE TO MULTIPLE POINTS CALLING THIS ROUTINE WHICH 
(HAY OVERLAP IF REQUEUED. 



SEQ 0016 



COHQUEl MOV 
JHP 

CADDRi OPEN 
CSTARTi OPEN 



*CADDR,RO 
I0Q8VN 



(CHBCKDATA ERROR CALL 
CDERRI DERRXt 
CDBRRlt OPEN 

JMP CDRET 



(DESTINATION ADDR. 

(MODULE START ADDR. CO FOR MONITOR), 



lAOORESS OF CKDATA CALL 



(TELETYPE ROUTINE PIRQ CALL 

(TTYLNK IS FREQUENTLY MODIFIED DURING EXECUTION 



TTYSRVl PIRQt 
TTYLNKi TTSRVl 



0/kBM 3SC/X11 S 


If SHUARD 


V w T T n a 

^ U ft i 1 u ^ 


^ *C Yi 1 


27tl006) 23-»PB 


-77 001 n PAGE 


1 5 


DXOABM.PU 21«APR>77 


12142 










457 










tSTARTUP SEQUENCE 




4se 
















459 


001S34 


000005 






ST»RT| BESET 






460 


001S36 


012706 


027212 




MOV 


• SpnOTt P6 




481 


Q01543 


012767 


015460 


1 76254 


MOV 


IPWRDM,PWprv 


IPS'' Ur* rlJnrip cAXu Vc-WlUn» 


463 


001550 


012746 


000004 




MOV 


»BUSEV,-CSP5 




463 


001554 


012767 


177570 


177414 


MOV 


tHARDSRiSR 




464 


001562 


012767 


001576 


176214 


MOV 


»38f BUSEV 


a CB*T MPU Clllfi CDD TBKD 


465 


001570 


005777 


177402 




TST 


8SR 


• TV TV UBBnUKBP CD'S 


466 


001574 


000404 






BR 


4* 


tit XEoy rLJUOBr.. TKAr 


467 


001576 


012767 


001004 


177372 


3(1 MOV 


tFAKESRfSR 


(ELSE SET UP SOFTWARE SR 


46B 


001604 


022626 






CMP 


CSP)+,CSP)+ 




469 


001606 


012667 


176172 




4»l MOV 


CSP)+,BUSEV 


■ Dfl*CTnDP aiTC FDD TDKB 


470 


001612 


012767 


026520 


177450 


MOV 


#M000-2,BKPTR 


; X N J XI Al'X £t> T" START ORrnUUB "iin lol UNE* 


471 


001620 


005767 


177374 




TST 


LOCORE 


J DONE BUFFER SETUP? 


472 


001624 


001054 






BNE 


21 


;BP IF YES. 


473 


001626 


004567 


025420 




JSP 


RS.SETBUr 


jNO, DO IT. 


474 










iTHE rOIiLOWING 


IS USED TO WRITE 


ALL MEMORY WITH WHATEVER IS 


475 










1 ALREADY THERCt 


JUST TO CLEAR ANY PARITY ERRORS PRESENT 


476 


001632 


000005 






RESET 




J TURN OFF KT 


477 


001634 


105767 


177444 




T8TB 


KTPRES 


jfT? 


478 


001640 


001430 






BEO 


14f 


jBR IF NO 


479 


001642 


004767 


010146 




JSR 


PC»KTINTT 


iSET UP KT REG'S FOB NORMAL USE 


400 


001646 


005067 


170432 




CLR 


KIPDR2 


tFOPCE A KT TRAP WHFN LOOP OVEBFLOWS 


481 














J INTO NEXT PAGE 


482 


001652 


012737 


000001 


1 77572 


MOV 


«l,»tSSR0 


jTURN ON KT 


483 


001660 


012737 


001736 


000004 


MOV 


*17Sr9*4 


jEXIT POINT FOB END OF MEMORY 


484 


001666 


012701 


177600 




MOV 


»-200,Rl 


ySET BACK A PAGE FOB LOOP'S INC 


485 


001672 


012737 


001700 


000250 


MOV 


013S, 81250 


fSET UP KT TRAP TO PUMP TO NEXT PAGE 


486 


001700 


062701 


000200 




13$I ADD 


#200, PI 


jBUMP TO NEXT PAGE 


487 


001 704 


010167 


170432 




MOV 


Rl.KIP&Rl 


jSET UP LOOP'S OAGE 


488 


001710 


012706 


001 160 




MOV 


»CCSRA,R6 


jGET BID OF TRAP JUNK ON STACK 


489 












tUSING THIS AREl 


I FOP STACK TEMPORSPILY SINCE ITS 


490 












flK THE SAME PAf 


1 SPACE 


491 


001 7 14 


012700 


020000 




MOV 


t20000>RO 


J SET RO TO USE PAR 1 


492 


001 720 


000404 






BR 


15S 


»G0 DO A PAGE 


493 


001722 


012737 


001744 


000004 


14«l MOV 


f 18$>l>t4 


jSET UP EXIT FOP NQN KT 


494 


001730 


005000 






CIiR 


BO 


jSTSBT AT LOC 


495 


001732 


011020 






l5ti MOV 


(R0)# CB03 + 


jWBITE A LOC WITH ITSELF 


496 


601734 


000776 






BR 15( 




»BR TILL KT OP 4 TRAP 


497 


001736 


012737 


000000 


177572 


17$J MOV 


tO,9tSSP0 


J TURN KT BACK OFF 


498 


001744 


012706 


027212 




I8II MOV 


»SPB0T,B6 


(RESET STACK TO REAL ABFA 


499 


001 750 


012737 


015246 


000004 


MOV 


»BUSEPP,9#4 


jCOBBECT TPAP VECTOR 


500 
501 


001756 


004767 


01 3004 




1 

3tl JSR 


PC.CLRQUS 


iCLEAB QUEUES. 


502 


001762 


105067 


177323 




CI.BB 


RHODE 




503 


001766 


1 12767 


177777 


177025 


HOVB 


»-l,HDXCTR 


jINITIALIZE COUNTER 


504 


001774 


1 05067 


1 77314 




CLRB 


ROTL 


J MAKE SURE POTATION IS NOT LOCKED 


505 


002000 


104406 


022672 




MSGS « TITLE 


ttype the title 


506 


002004 


022767 


001004 


177164 


CMP 


*FAKESR,SP 


jDO WE HAVE A RFAL SP? 


507 


002012 


001002 






BNE 


55* 


;BR IF YES 


508 


002014 


104406 


024633 




MSGtf NOSWP 


jELSE TELL HIM WHERE IT IS 


509 


002030 


004767 


014714 




55St JSR 


PC.POTCHK 


jCHECK if B0T*TE allowed and type RANGE. 


510 


002024 


004767 


015022 




JSR 


PC.SYSIZ 


; PRINT OUT the SYSTEM SIZF 


511 


002030 


004767 


015514 




JSF 


PCKLOCK 


jCHECK for a clock and SET FLAGS 


512 


002034 


105767 


177244 




TSTB 


KTPRES 


jKTll ALLOWED? 
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DXOABM.PII 


21-APR-77 


12142 


513 


002040 


001410 




514 


OO2042 


004767 


007746 


515 


002046 


013737 


000001 


516 


002054 


104406 


02461S 


517 








518 








519 


002060 


000402 




520 


002062 


104406 


023776 


521 








522 


002066 


004767 


010722 


523 








524 


002072 


105737 


000041 


525 


002076 


001402 




526 


002)00 


104406 


023520 


527 


002104 


005067 


177134 


526 


002110 


004767 


017360 


529 


002114 


004767 


012646 


530 


002120 


004767 


012724 


531 


002124 


105767 


177154 


532 


002130 


001002 




533 


002132 


004767 


023534 


534 


002136 


104406 


022737 


535 


002142 


105767 


177144 


536 


002146 


001405 




537 


003150 


112777 


000015 


538 


002156 


000167 


006526 


539 








540 


002162 


012706 


027212 


541 


002166 


105067 


177116 


542 


002172 


012767 


026712 


543 


002200 


052777 


000100 


544 


002206 


116767 


177120 


545 









176636 
176754 
176613 





BEO 


START3 


JNO- BRANCH 


START2i 


JSR 


PCKTINIT 


:YES- INITIALIZE 




MOV 


11 ,9iSSR0 


ITUPN ON le-BIT Kin 




MSG*, 


,KTONM 


>"KTn ENABLED" 




BR 


START4 


jCONTINUE 


START31 


MSGSi 


rNOKT 


J"N0 KTIl" 


START4i 


JSB 


PCPONN 


TGO TURN ON PARITY IF AVAILABLE 




TSTB 


9«41 


lANY LOAD MEDIUM BITS SET 7 




BEO 


It 


jNO, CONTINUE 




MSGSi 


,CLB40 


TO EXERCISE LOAD MEDIUM YOU MUST CLEAP LOC 40 


111 


CLR 


OFFSTD 


jMAKE SUBE PROGRAM is NOT PARTIALLY RELOCATED 




JSR 


PC.MVCODE 




JSR 


PCCLPQUS 


»CLEAfi QUEUES IN CASE MVCODE OVEB WROTE THE" 




JSR 


PC.CLBVEC 


J INITIALIZE VECTOR AREA 




TSTB 


KTPRES 


jKTU IN USE ? 




BNE 


5$ 


JYES, CONTINUE 




JSR 


PCLOADWC 


jNO, LOAD WORST CASE PATTERN IN BUFFER 


5*1 


MSGt, 


iDOT 


J TYPE DOT, 




TSTB 


CHN 


:CHAIN MODE? 


611 


BEO 


INPUT 


jNO- GO AWAIT KEYBOAPO INPUT 


MOVB 


#I5»9KBPTR 


JCLEAN OUT KEYBOABD BUFFER WITH A CP 




JMP 


RUN 


jYES-START PUNNING. 


INPUT! 


MOV 


ISPBOTiRe 


jBESET STACK, 




CLRB 


SYSERI 


tCLEAB SYSTEM ERROR INDICATOR, 




MOV 


iKBUF,KBPTB 


^INITIALIZE KYBO BUFFER POINTER, 




BIS 


tIE,8TKS 


JENABLE KYBD INTERRUPTS, 




MOVB 


aUECNT.QUECTR 
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946 
547 
948 
549 
550 
581 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
563 
563 
564 
565 
566 
567 
568 
569 

571 
572 



iQUEUE CHECK, NOTE THAT IF lOBKID IS NEGATIVE, NO TYPE QUE REQUESTS HILL BE SERVICED 



003314 


105 367 


1 76607 


QUETStl 


DECS 


queCtr 


ICOUNT TO PREVENT BREAK CALLS FROM LOCKING 


003320 


003004 






BGT 


It 


lALSO PREVENTS HIGH SPEED INT DEVICES PRON 














ILwCKiNG UUT TXPE QUEUE AND KUN oSKYlCG 














} STARTUP OF MODULES 


003223 


116767 


177104 


_ 

176577 


MuVB 


QuECNT, QUECTR 


{RESET QUE COUNTER 


002330 


000405 






BR 


3t 




003333 


105767 


176550 


111 


T8TB 


lOQUE 


flO QUE REQUEST PENDING? 


Q03336 


001402 








21 




003240 


000167 


000476 




JnP 


X0Q5YC 




002244 


005767 


176610 


21 1 


TST 








1 00433 






BMI 


QTSTC 




002352 


1 05767 


_ 

176531 


3> 1 


T8TB 




yTYPE REQUEST PENDING? 


003356 


001412 












003360 


105767 


- 7SS30 




T8TB 


TTVB8Y 


jTTY BUSY? 


003364 


001002 






BNC 


QTSTA 


|BR IF YES. 


002366 


000187 


000674 




JMP 


TYPSVC 


jNO, GO SERVICE TYPE QUEUE, 


003373 


005367 


176612 


OTSTAi 


DEC 


TYPCTR 


jCHECK FOR TTY HUNG 


003376 


001002 






BNE 


QTSTB 




003300 


000167 


005133 




JMP 


TTSRVl 


jUNHANC TTY 


003304 


005767 


176560 


QTSTBi 


TST 


TPCPC 


IBACKGROUND MODULE PENDING? 


003310 


001402 






BEQ 


QTSTC 






505:S7 












002316 


105767 


176767 


QTSTCi 


TSTB 


RMODE 


»1N RUN MODE? 


003323 


001734 






BEQ 


QUETST 


IBR IF NOT, GO CHECK AGAIN. 
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573 
574 
57S 
576 
577 
578 
579 
580 
581 
582 
593 
594 
585 

Its 

597 
S89 
589 
590 
59J 
543 
593 
594 
595 
596 
597 
599 
599 
600 
601 
603 



002324 
002330 
002332 
002336 
002340 
002344 
002346 
nn?3!4 

0!J2J58 
n021«2 
002364 
002370 
(102372 
OOSITS 
002400 
OO240S 
0024)0 
002416 
002422 
002424 
002430 
002434 
002440 
002442 
002446 



105767 
001331 
105767 
001407 
105767 
001407 
012767 
000415 

t057«T 
nol314 
105767 
001007 
105767 
in0004 
012767 
000702 
062767 
017700 
001476 
016046 
042716 
022667 
001)36 
005767 
001414 



176463 
177016 
176460 
040020 

176442 

176426 

176714 

040020 

000002 
176416 

000020 
016000 
176420 



iRUN MODE SERVICE ROUTINE. 

(NOTE THAT MODULE'S STACK POINTER IS REINITIALIZED HUT OTHER 
iREGISTERS HAVE ANY PREVIOUS VALUES RESTORED ST START OR RESTART 



176504 



RUNSVCi TSTB 
BNE 
TSTS 
BEO 
TSTB 
HEQ 
MOV 
BP 

Ul» TSTB 
BNE 



13SI 



176452 
176422 111 



TSTB 
BNE 
TSTB 
BPL 



ADD 
MOV 
BEO 
MOV 
BIC 
CMP 
BNE 
TST 



BRAKE >IS THE BRAKE ON? 

QUETST »BR IF YES. DO NOT TNIT MORE MODULES, 

ALLBK jRUN ALL BKMODS BEFORE RELOCATING ? 

12$ jNO, CONTINUE 

STOP (WAITING TO PELPCATP 7 

131 »N0, CONTINUE 

#40020. lOBKID jSTART UP ONLY BKMOD'S 

It {CONTINUE 



START A^^Y MORE MODULES 



I STOP SET? 
I YES, DON'T 
jMODCTR "OT 
}BP IF NOT, 

lYES. ARB WE IN CHAIN MODE? 
iBR IF NOT. 

;SWITCH IT TO BSCKGBOUND AND PREVENT LOOPINC 
J THRU BACKGROUND MODULE S^SiEs MORE THAN OSC 
jPOINT TO NEXT MODULE. 
T MODULE ADDR TO RO , 
jBP IF NO ADDR. 
B.„.,,.w.,-w-. - »GET MODULE'S STATUS 
»BIT121BIT111BIT10,(SP3 (MASK SPECIAL INDICATORS 
fSP)+,IOBKID jCORRECT MODULE TYPE TO RUN? 
11$ |N0- BRANCH 

OFFSET )IF OFFSET 0, IGNORE BITS 10 +11 

21 I CONTINUE 



STOP 

OUFTST 

MOOCTR 

IS 

CHN 

1$ 

#40020, lOBKID 
QUETST 
»2,M0DPTR 
9M0DPTH, RO 
71 

STAICRO)»-CSP) 
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603 


003450 


032760 


004000 


000030 




BIT 


604 


003456 


001127 








BNG 


605 


003460 


032767 


001777 


176554 




BIT 


606 














607 


003466 


001404 








BEO 


606 


002470 


032760 


002000 


000030 




BIT 


609 


002476 


001117 








BNE 


610 


002500 


005767 


176354 




3* t 


T8T 


611 














612 














613 














614 


002504 


100410 








BMI 


615 


OO25O6 


112767 


177777 


176377 




HOVB 


616 


002514 


016767 


176320 


176546 




HOV 


617 


002523 


004767 


015314 






JSP 


61B 


002536 


032760 


010000 


000030 


3*1 


BIT 


619 


003534 


001402 








BEO 


630 


003536 


105267 


176260 






INCB 


631 


003543 


105060 


000005 




4li 


CLRB 


632 


003546 


016060 


000034 


000046 




MOV 


633 


002554 


105767 


176S46 






TSTB 


634 


002560 


001004 








BNE 


635 


002562 


016067 


000023 


176364 


44*1 


MOV 


626 


002570 


000407 








BR 


627 


002572 


016067 


000063 


176354 


5*1 


MOV 


636 


002600 


005760 


000036 






TST 


639 


002604 


001001 








BNE 


630 


002606 


000765 








BR 


631 


002610 


105367 


176303 




6*1 


DECB 


633 


002614 


000167 


00031 3 






JMP 


633 


002630 


023767 


040000 


176333 


7*1 


CMP 


634 


002636 


001004 








BNE 


635 


002630 


013767 


041000 


176323 




«nv 


636 


002636 


000434 








BP 


637 


003640 


022767 


041000 


176313 


8«t 


CMP 


638 


003646 


001013 








BNE 


639 


003650 


012767 


140000 


176303 




MOV 


640 


003656 


1 12767 


177777 


176135 




HOVB 


641 














643 














643 














644 














645 


003664 


105067 


176133 






CLRB 


646 














647 














646 














649 














650 














651 


003670 


105067 


176456 






CLRB 


653 


002674 


000415 








BP 


653 


003676 


005767 


176156 




911 


TST 


654 


003703 


100012 








BPL 


655 














656 














657 














656 















«BXI11,SIAT(P0) IBITII SETT 

111 lYES- DON'T RUN MODULE SINCE OrESET NOT 

11777, OFFSET (OFFSET 32K MULTIPLF7 

2* lYES- IGNORE BIT 10 

•BITIO.STATCRO) jNO- BITIO SET? 

11* jYES- DON'T RUN MODULE 

TOBKID iBACKGROUND MODULE? 



3* 

»-l, BRAKE 
HODPTR.BKPTP 
PC.BKTYM 
tBIT12,STAT(R0) 
4* 

HDXCNT 
XFLAGtRO) 



.»BR IF NOT. 
jYES. APPLY BRAKE. 

(RECORD MODO ADDRESS OF CURRENT BKMOD 
5PEC0RD START TIME OF THIS BKMOD 
(EXTENDED I/O MODULE? 
(NO- BRANCH 
(YES, COUNT IT 
(CLEAR INDICATOR 
SP0INT(R0),SVR6(R0) (SET UP MODULE SP POINTFP, 
RUNRFL 
5* 

INITtR0)»OSTADR (SET UP DESTINATION ADDR. 
6* 

RSTRT(RO),DSTADR 



PSCNT(RO) 

6* 

44j 

MODCTR 
lOOSVE 

•40000, lOBKlD 
8t 

141000, lOBKID 
101 

141000, lOBKID 
9* 

1140000, lOBKID 
»-l,MDXCTB 



MDXCNT 



NSTOP 
10$ 

lOBKID 

lot 



(HAS MODULE BEEN THRU START YET? 
(BR IF YES 
(ELSE GO BACK 

(DECR COUNT OF MODS INITED. 
(GO TO START MODULE 
(FINISHED WITH SPECIAL BKMOD ? 
;BR IF NOT, 

(YES, SWITCH TO N8KM0D 
(CONTINUE 

(FINISHED WITH NBKMOOS ? 
(NO.. CONTINUE 
(YES, SWITCH TO lOHOD. 
(INITIALLY LOCK MDXCTR 



(INITIALIZE COU«T 



(ALLOW STOP FLAG TO BE SET 
( CONTINUE 

[IF SLREAny BACKGROUND 
(DON'T BFSET MDXCTR 
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659 
660 
661 
663 
663 
664 
665 
666 
667 
666 
669 



003704 
O03712 



002736 
002730 
003736 



1 16767 
013767 



176113 
040030 



000403 
013767 
000167 



036520 
177252 



176107 
176140 



002720 016767 176344 176112 



176103 



10*1 
11*1 



MOVB 
MOV 



MOV 

MflVB 

BR 

MOV 

JMP 



MDXCNT, MDXCTR 
140030, lOBKID 



BKPTR.MODPTP 
»1 , RUNRFL 
lit 

•MnD0-3,M0DPTR 

OUETST 



(SETUP "DXCTB 

(SWITCH in BSCKGpnuon fOOF 



(CONTINUE WITH NEXT BKMOD 
[SET RUN RESTART FUGll /60 



(POINT TO "CIDULK TABLE START. 



f •«*•••««••• 
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S70 








$7 i 








673 








67J 








874 








67S 








67C 


002742 


026727 


176130 


*77 


002750 


103403 




6?i 


002792 


012767 


027393 


679 


002760 


109367 


176022 


610 


003764 


017700 


176106 


6tt 


002770 


062767 


000002 


6*2 


Q02776 


010001 




693 


003000 


014046 




614 


903002 


032726 


104407 


6SS 


003006 


001003 




686 


003010 


000167 


000440 


617 


003014 


005720 




6ia 








6t9 


003016 


013067 


176032 


690 


003022 


013000 




69! 


003024 


001003 




692 


003026 


000177 


176022 


693 


00)013 


116067 


000020 


694 


003040 


033760 


030000 


695 


003046 


001403 




696 


003050 


000167 


177140 


697 


003054 


033760 


040000 


696 


003062 


001003 




699 


003064 


000167 


177134 


700 


003070 


010067 


176043 


701 


003074 


010667 


176053 


702 


903100 


063700 


000050 


703 


003104 


014006 




704 


003106 


014005 




705 


003110 


014004 




706 


003112 


014003 




707 


003114 


014002 




708 


003116 


014001 




709 


003120 


014000 




710 


003122 


016746 


175740 


711 


nnit 3* 


!0506« 




712 


001132 


016746 


175716 


713 


003136 


000006 





Il/O QUE SERVICE ROUTINE. 

•SERVICES PIRQt.QUEti AND BREAK! CALLS 

I NOTE THAT P^RQ SERVICE CAN OCCUR ON TOP Of THIS ROUTINE- SO 
lIiEVEt 7 PRIORITY IS REQUIRED IF COUNT IS DECREMENTED AFTER I0Q2 
lis MOVED 



030072 
176116 



176100 



176026 

doooSo 



000020 



lOQSVCI CMP 
BLO 

HOV 

111 DECS 
MOV 
ADD 
HOV 
NOV 
CMP 
BNE 
JMP 

2(i TST 

lOQSVNi HOV 
HOV 
BNE 
JMP 

loasvEi HOVB 

iSttSVAt Bit 
BEQ 
JMP 

111 BIT 

BNE 
JMP 

211 MOV 

MOV 
ADD 
HOV 

lOQSVDi HOV 
MOV 
HOV 
MOV 
MOV 
HOV 

lOOSVBj HOV 

CLRB 
HOV 

RTTII RTT 



I0Q2>II0aLIM 
It 

f lbQ>I0Q2 
lOQUE 
»lbQ2(R0 
*3f 1003 
RO.Rl 

-(RO),-(SP) 
tBREAK|,(SP)t 

at 

BREAK, 
(RO)* 

(RO)+>DSTADR 
CRO)*»RO 
lOOSVE 
8DSTADR 

STAT(RO),RSTAT 

fBITl3»STA¥cB0) 
It 

OUETST 

fBIT14.STAT(R0} 
3t 

OUGTST 

RO.MODADR 

R6>8PSAV 

fSVR6+2,R0 

-(R0),R6 

•(R0)fR5 

-CR0)»H4 

-CR0).R3 

-(R0),R3 

-(R0)>R1 

-(RO).RO 

RSTATf-tSP) 

!fSP) 

OSTAOR,-(SP) 



IREACHED LIMIT OF QUEUE? 
I BR IF NOT. 

t RESET I0Q2, 

IDECREHENT REQUEST COUNT 

tGEf PC*7 OF CALL. 

{UPDATE I0Q2. 

I SAVE PCt2 OF CALL 

(PUSH CALL ON STACK 

(BREAK CALLT 

jNO, CONTINUE 

J YES, GO SERVICE IT 



IGET DESTINATION ADDR. 

iGET MODULE ADDR, IS IT 0? 
tBR IF NOT. IT'S A MODULE. 
iGO DO MONITOR FUNCTION. 
iGET RUN STATUS, 

i^oDuiii; sfopfmi 

INO, CONTINUE 

iYES( FORGET IT 

Sis HODULE SELECTED T 

lYESi CONTINUE 

|N0> FORGET IT 

(SAVE RO. (MODULE ADDR). 

I SAVE MONITOR STACK TOOt. 

{RESTORE MODULE'S REGS. 

{STARTING WITH STACK POINTER, 



{LOAD RUN STATUS, 
{KERNEL, 1ST REGISTFR SET 
(LOAD DESTINATION ADDR, 
(GO TO DESTINATION, 
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714 
715 
716 
717 
718 
719 
720 
721 
7J2 



003140 

003H4 
003160 



016767 
116767 
017700 
005067 



003164 000725 



175724 
175720 
175660 
175704 



SEQ 0024 



(BACKGROUND QUEUE SERVICED HERE. 



175706 
175712 



BKOSVC{ MOV 
MOVB 
MOV 
CLR 



TRCPCDSTADR 
TRCPSN,RSTAT 
?MODPTP,R0 
TRCPC 



lOQSVA 



(SET UP DESTINATION ADDR. 

(SET UP RUN STATUS. 

(MODULE START ADDR TO RO, 

(CLEAR BK MODULE WATTING INDICATOR, 

(IF ERROR OCCURS, WILL STOP HODULE FROM FURTHER 

(EXECUTION UNTIL ERROR IS REPORTED 

(GO GET GDIOG, 
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SEO 0025 



723 










724 










725 










726 


003] 66 


026727 


175710 


031222 


727 


003174 


103403 






728 




012767 


030072 


175676 


729 


003204 


1 05267 


175604 




730 


003210 


017701 


175666 




731 


003214 


062767 


000002 


175660 


7 32 


003222 


105367 


175561 




733 


003226 


0101 46 






734 


003230 


005741 






735 




010167 


175610 




736 


003236 


011101 






737 


003240 


006301 






738 


003242 


016101 


172244 




739 


003246 


000201 






740 










741 


003250 


005310 






742 


003252 


005014 


004042 


004034 


743 


003260 


003426 


000001 


004024 


744 


003266 


003322 


000001 


000001 


745 


003274 


000001 


000001 


003312 


746 


003302 


000001 


ooooei 


003562 


747 


003310 


003466 







fTYPB QUE SERVICE ROUTINE, 

tREMOVES PC+2 or CALL FROM 0, PASSING IT IN Rl 



TYPSVCi CMP 
BLO 
HOV 

111 INCB 

MOV 

ADD 

DECB 

MOV 

TST 

MOV 

HOV 

ASL 

MOV 

RTS 

TyPTAB! .WORD 
.WORD 
.WORD 



TYP02,«TYPLIM jREACHED UPPER ENO OF QUEUE? 

II JBR IF NOT. 

•TYPE0,TYPQ2 JYES. RESET TYPQ2, 

TTYBSY J INDICATE TTY BUSY. 

?Typ02,Rl >GET PC+2 OF CALL. 

»2,TYPQ2 lUPDATE TyPQ2. 

TYPOUE {DECREMENT REQUEST COUNT. 

P1,-CSP) (PUSH PC+2 OF CALL 

-tRlJ ;POINT TO CALL. 

Rl, NUMBER jSAVE ADDRESS OF CALL 

CR1)»R1 ;GET CALL 

Rl »TIMES 2. 

TyPTAB-TRP2-4(Rl),Rl jFDRH SERVICE ADDR, 

Rl »G0 TO ITi RESTORE PI. 

PASEBD 

ENDSVC , ERRSVC , ERSVC S 

HSG.,lfERSVC2,MSGN.,l,l.l»l»"SGS.,l,l,DEBRX.,WSGD. 
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12142 










748 










»MSGN, 


ROUTINE, 


SERVICES CALLS 


749 












750 


003312 


112767 


177777 


176026 


MSGS.I 


MOVB 


#-liMSGFLG 


751 


003320 


000402 








BP 


MSCONT 


752 


003322 


105067 


176020 




MSGN.i 


CIRB 


MSCFLG 


753 
















754 


003326 


012167 


175532 




HSCONTi 


HOV 


(P1)+»TABADP 


755 


003332 


012167 


176156 






MOV 


(Rn + ,CSTART 


756 


003336 


010167 


176150 






HOV 


Rl.CADDR 


757 


003342 


016701 


176146 






MOV 


CST»RT,R1 


759 


003346 


032777 


020000 


175622 




BIT 


«8IT13,9SP 


759 


003354 


001033 








BNE 


MSGl . 


760 


003356 


105767 


175764 






TSTB 


MSGFLG 


761 


003362 


100410 








BMI 


IS 


762 


003364 


004767 


001300 






JSR 


PCENDCOM 


763 


003370 


004567 


003754 






JSR 


R5,TYPEN 


764 


003374 


022744 








CRCR 




765 


003376 


025721 








AEND 




766 


003400 


025756 








IPASS 




767 


003402 


nooooo 













768 


003404 


016701 


175454 




111 


MOV 


TABADRjRl 


769 


003410 


012146 






2lt 


MOV 


(Pi )+,-(SP) 


770 


003412 


022716 


177777 






CMP 


»-l. (SP) 


771 


003416 


001412 








BEO 


MSGl . 


772 


003420 


004767 


003742 






JSP 


PC, TYPE 


773 


003424 


000771 








BR 


2S 



»SET MSGS CALL FLAG 
»CONTINUE 

;SFT MSGN CAI.f. Pt.AG 

SGET ASCII TJBLF ADDR, 
;MQDULE ADDS TO CSTSRT, 
;RESUME AODB TO CADPR, 
J MODULE ADDR TO RJ, 
;INHI6IT PRBOR PRINT? 
»8P IF YES. 

>IS THIS A MSGS CALt. ? 

)YES, CONTIMUF 

»N0, DO COMMON STUFF, 

STYPE 

J 2 CABBAGE RETURNS 
•COMMON HKADFR. 
;PASS 

(TABLE ADDR TO Bl, 
;GET MESSAGE ADDB. 

iTEPMIHHTOB? 
;BR IF YES. OnNE, 
;N0. TYPE MESSAGE. 

• GO nn IT Ar.ATN, 
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774 |N8Gt CALIi SERVICED HERE 

775 



770 


503426 






hbc. i 


hOV 


tHlJ+f-CBP) 


lABCII MESSAGE ADDR TO STACK, 


777 


903430 


010167 


176056 




MOV 


Rl.CADDR 


(RESUME ADDR TO CADDR. 


771 


003434 


00S067 


176054 




CLR 


C8TART 


{INDICATE MONITOR QUE CALt^ING 


779 


Q03440 


004767 


003722 




JSR 


PCTTPB 


•SO TYPE DESIRED MESSAGE. 


710 


003444 


10S067 


175344 


MSSl.l 


CLRB 


TlyBSY 




7«l 


003450 


000167 


176026 




JMP 


COHOUE 


iGO QUEUE UP TO RESUME. 
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782 
783 
784 
785 
786 



003454 
003456 
003462 



012100 
010167 
000167 



175372 
177344 
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(BREAK ROUTINE, SERVICES BREAK CALL, 



SEQ D028 



BREAK. I HOV (Pn + ,RO jGET MODULE ADDR, 

MOV Rl.DSTADR | GET DESTINATION ADDR. 

JMP lOQSVE J QUE UP TO RESUME 
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787 
7«8 
789 
790 
79t 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 



fMSGDI SEPVICE- TYPE DATA ERROR COUNT AND TRANSFER SIZE 
I AMD HALT MODULE IE NECESSARY 



003466 
003473 
003476 
003500 
003504 
003510 
003512 
003516 
003522 
003524 
003530 
003534 
003536 
003544 
003546 
903552 
003556 



010167 
004767 
012601 
010167 
004567 
026424 
004767 
004567 
026436 
004767 
004567 
026470 
032777 
001004 
012746 
004767 
000167 



176020 
001254 



176010 
010124 



001234 
010650 



001222 
010636 



020000 175432 

036433 

003610 
001014 



MSCD.I MOV 
J8R 
«0V 
MOV 
JSR 

AERNM+1 

JSR 

JSR 

AERCT 

JSP 

JSR 

AEPTOT 

BIT 

BNE 

NOV 

JSR 

MSGDl.t JMP 



RlfCADDR 

PCTYPDAT 

(SP)+,F1 

Rl.CSTART 

RS.rilLNM 

PCTYPDAT 
R5,BDCNV 

PCTYPDAT 
RS.BDCNV 

»BIT13,»8R 
M8GD1. 

tAERNM,«C8P) 
PC TYPE 
ERSVND 



(SET UP RESUME ADDRESS 
iGET MODULE ADDRESS 



(SAVE ADDRESS 
(GET MODULE NAME 



» SETUP ERROR COUNT (ASCII) 



(SETUP TOTAL WORDS TRANSFERRED 



(INHIBIT ERROR PRINTOUT? 
(YES« BRANCH 
(NO- TYPE MESSAGE 

(CHECK FOR HALTING MODULE, AND RETURN IF NOT 
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807 










fDERRX, 


ROUTINE 


, SERVICES EXTENDED DATA ERROR C4LLS FRO" THE MONITOR 


808 










(CHECKDATA ROUTINE. TYPES ERROR 


INFORMATION AND RET'IPMS 


809 
810 


003562 


112767 


000001 


175227 


DERRX.{ 


HOVB 


•l.ERPIND 




811 


003570 


005721 








TST 


(Rl) + 


■POINT TO RETURN LOCATION 


812 


003572 


010167 


175714 






MOV 


Rl ,CADDR 


(SETUP RESUME ADDRESS 


813 


003576 


004767 


001150 






JSP 


PCTYPDAT 


(GET MODULE ADDRESS 


614 


003602 


013601 








MOV 


(SP)+,R1 




815 


003604 


010167 


175704 






MOV 


RJ .CSTART 


(AND SAVE IT 


816 


003610 


004767 


001136 






JSR 


PCTYPDAT 




817 


003614 


012667 


175236 






MOV 


CSP)+f NUMBER 


(SETUP ADDRESS OF CKDATA CALL 


818 


003630 


004767 


001044 






JSR 


PCENDCOM 




819 


003634 


012702 


000005 






MOV 


*5.P2 




830 


003630 


004767 


001116 




DERRXli 


JSR 


PCTYPDAT 




821 


003634 


005302 








DEC 


R2 




822 


003636 


001374 








BNE 


DERPXl 




833 


003S40 


016146 


000030 






MOV 


ERCNT(P1),-(5P) 


(ERROR COUNT TO STACK 


824 


003644 


004567 


010522 






JSR 


RS.BDCNV 


(CONVERT ERPOP COUNT TO DECIMAL 


835 


003650 


026335 








AERNHB 






826 


003652 


005046 








CLR 


-(SP) 




827 


003654 


005766 


000002 






TST 


2(SP) 




828 


003660 


001402 








BEQ 


)( 




829 


003662 


012716 


000060 






MOV 


#60, (SP) 


(CSRA EA BITS 


830 


003666 


004567 


010260 




Hi 


JSR 


RS.OACNVX 


(CSR ADDRESS- ASCII 


831 


003672 


036205 








ADTE6 






832 


003674 


012603 








MOV 


(SP)+,P3 


(SAVE TABLE ADDRESS 


833 


003676 


012667 


175252 






MOV 


CSP)+,ERRPOS 


(SAVE OFFSET COUNT 


834 


003702 


006367 


175246 






ASL 


ERRPOS 




835 


003706 


012346 








MOV 


(R3)+,-(SP) 


(SETUP READ BItFFFR PA 


836 


003710 


012346 








MOV 


(R3H»-(SP) 


(GET EA BITS 


837 


003712 


066766 


175236 


000002 




ADD 


ERPP0S,2(SP) 




838 


003720 


103002 








BCC 


2t 




839 


003722 


062716 


000020 






ADD 


•20, (SP) 




840 


003726 


005733 






2ti 


TST 


(R3) + 


(SKIP SIZE 


841 


003730 


004567 


010216 






JSR 


R5,0ACNVX 


(GET PA OF RDADR 


842 


003734 


036365 








ADTE4 






843 


003736 


013346 








MOV 


(3)+,-(SP) 


(GET WRITE PA 


844 


003740 


013346 








MOV 


(3)+»-(SP) 


(GET EA BITS 


845 


003742 


066766 


175206 


000002 




ADD 


ERRPOS, 2(SP) 




846 


0O3750 


103003 








BCC 


3* 




847 


003752 


063716 


000020 






ADD 


#20, (SP) 




848 


003786 


004567 


010170 




3ll 


JSR 


P5,0ACNVX 


(GET ASCII OF WPAOR 


849 


003763 


026350 








ADTE5 






850 


003764 


004567 


010150 






JSR 


R5,0ACNV 


(CONVERT S/B TO ASCII 


851 


003770 


026220 








A0TE3 






853 


003772 


004567 


010142 






JSR 


R5,0ACNV 


(CONVERT MAS TO ASCII 


853 


003776 


026233 








ADTE3 






854 


004000 


016746 


175150 






MOV 


ERRPOS. -CSP) 


(ERROR POSITION IN BUFFER 


855 


004004 


000241 








CLC 




(CORRECT BACK FROM BYTE TO WORD PTR 


856 


004006 


006216 








ASR 


(SP) 




857 


004010 


00S316 








INC 


(SP) 


(MAKE 1ST WORD 11 


851 


6o4ni2 


004567 


010354 






JSR 


RS.BDC'.'V 


(GET DECIMAL 


859 


004016 


036317 








ADTE7 






860 


O04020 


0001*7 


000306 






JMP 


EB8VX 


(GO TO COMMON ROUTINE 
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■61 








■ 63 








161 








• ft! 


.... 
004034 


1 13767 


000003 


8iS 


904033 


A A AAA A 

ywQ4u9 




1(6 


004034 




174797 


167 


904040 


000403 




161 


004043 


1 12767 


A A AAA1 


•6* 


0040SO 


013167 


179440 


•70 


004oS4 


1 33767 


A A A A A 1 


•7t 


904063 


001003 


174774 


(73 


0040(4 


013167 


•73 


004070 


A t A ( £^ 


179416 


874 




016701 


179414 


(79 




004767 




(76 


004104 


00S361 


000030 


(77 


004110 


AA i A A9 




(7( 


904113 






(7( 


004| 16 




000009 


((0 


004133 




000634 


((1 


904136 


00S303 




((3 


904130 


QOl 374 




((3 


004133 


016146 


A Aft A % n 




0041 36 






WW J 

(IS 


004143 


036339 




1(6 


004144 


1 0S767 


17 4647 


((7 


9041S0 


001047 


007 ez 


((( 


004lS3 


004567 


((9 


904lS6 


036333 




• 90 


004160 


004967 


007754 


(91 


904164 


036330 




(93 


004166 


012667 


174654 


(93 


904173 


10441 3 


001046 


(94 


004176 


016746 


1 74646 


(9S 


004303 


016746 


174644 


(96 


OO43O6 


004967 


007740 


(97 


004313 


036369 




(98 


A A A4 4 A 


1 3667 


1 74636 


899 


004230 


A?siil 


AA4 AAA 


900 


904324 




174630 


901 


A A J V A 




1 746 1 6 


902 


004234 




60771^ 


903 


004240 


036350 




904 


004342 


A AK A 

OU3040 




90S 


004344 


016667 


000002 


906 


OO43S3 


001403 




907 


004254 


012716 


A A A AC A 


90( 


004360 


004967 


007666 


909 


004364 


02820! 




910 


004366 


000421 




911 


004370 


033636 




912 


004272 


004567 


007642 


913 


00427* 


036167 




914 


004300 


004567 


007634 


91! 


004104 


036152 




91« 


004306 


005046 





I ERROR CALIiS m SERVICED HERE, 



174739 



174706 



ERSVC3i 


MOVB 
BR 


t3(ERRIN0 
ERSVCA 


(INDICATE ERRORN CALL, 


ERSVCl i 


CLRB 
BR 


ERRIND 
ERSVCA 


lINDieATE DATA ERROR. 


ERRSVCi 


MOVB 


13 (ERRIND 


(INDICATE ■NORMAL* ERROR. 


ERSVCAi 


HOV 


(R1)+«C8TART 


(SAVE START ADDR OF MODULE. 




CHPB 


13. ERRIND 


(ERRORN CALL? 




BNE 


11 


(BR ir NOT 




MOV 


CRD^^iTABADR 


(SAVE TABLE ADDR. 


Iti 


MOV 


Rl.CADDR 


(RESUME ADDR TO PSENOB. 


MOV 


CSTARTiRl 


(GET BACK START ADDR, 




J8R 


PC.ENDCOM 


(DO COMMON STUFF. 

(INCREMENT MODULE'S ERROR COUNT, 




INC 


ERCNTCRl) 




BHE 


ERSVCa 


(BR ir RESULT NOT 0. 




COM 


ERCNttRlJ 


(RESET COUNT TO 


ERSVCBj 


HOV 


19, R3 


(GET TYPE DATA FROM QUEUE TO STACK, 


ERSVCCl 


JSR 


PCTYPDAT 


(DO IT, 




DEC 


R3 


(DONE? 




8NS 


ERSVCC 


:BR IF NOT, 




MOV 


ERCNTCRl)i-(SP) 


(ERROR COUNT TO STACK, 




JSR 


R! : 96CNV 


iCONVER? ERROR COUNT TO DECIMAL, 




Iernmb 








TSTB 


ERRIND 


(DATA ERROR? 




BNE 


31 


(BR IF NOT, 




JSR 


RSiOACNV 


(CONVERT WAS TO ASCII. 




ADTE3 








JSR 


RS.OACNV 


(CONVERT S/B TO ASCII, RESET TYPQ3, 




ADTE3 








HOV 


C BP) '^l NUMBER 


(GET ADDR OF LOCATION READ 




GETPAI, 


, NUMBER 






HOV 


NUMBPAfCSP) 






HOV 


NUHBEAf-CSP) 






JSR 


R5,0ACNVX 


(CONVERT HASADR TO ASCII, 




ADTE4 








MOV 


(SP]+«NUMBER 






GETPAI, 


, NUMBER 






MOV 


NUMBPAcCSP) 






HOV 


NUMBEAfCSP) 






JSR 


RSiOACNVX 


• CONVERT SSiDB TO .4SC1X; 




ADTE9 








CLR 


•CSP) 


(0 ONTO STACK 




MOV 


3CSP)»CCSRA 


(SAVE CSR ADDRESS 




6EQ 


11 


(IF 0, BRANCH 




MOV 


t60«CSP] 


(SETUP EA BITS 


111 


JSR 

ADTE6 

BR 


RS.OACNVX 
ERSVX 


(CONVERT CSP ADDR TO ASCII, 


3*1 


CMP 


(SP)+,tSP)+ 


(SKIP WAS AND S/B, 




JSR 


RSiOACNV 


(CONVERT STAT REG CONTENTS TO ASCII 




ASTATC 








JSR 


RS.OACNV 


(CONVERT CSP CONTENTS TO ASCII, 




ACSRC 








CtP 


-CSP) 


(0 ONTO STACK 
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917 


004310 


016667 


000002 


174642 




MOV 


3(SP)fCCSRA 


(SAVE CSR ADDRESS 


911 


004316 


001402 








BEQ 


31 


(BRANCH IF ADDRESS 


919 


004320 


012716 


000060 






MOV 


«60»(SP) 




920 


004324 


004567 


007632 




311 


JSR 


PS.OACNVX 


(CONVERT CSR ADOR TO ASCII. 


921 


004330 


026136 








ACSRAC 






922 


004332 


032777 


020000 


174636 


ERSVXi 


BIT 


IBIT13,ISR 


(INHIBIT ERROR PRIHTT 


923 


004340 


001116 








BNE 


ERSVND 


|BR IF YESa 


924 


004342 


105767 


175005 






TSTB 


CLOCK 


(IS THERE A CLOCK AVAILABLE 7 


929 


004346 


001414 








BEO 


71 


(NO, CONTINUE 


926 


004390 


004767 


013476 






JSR 


PC.ERRTYM 


(YES, SETUP TIME OF THE ERROR 


927 


004354 


004567 


002770 






JSR 


RSjTYPEN 


(TYPE 


928 


004360 


022744 








CRCP 




(2 CARRAGE RETURNS 


929 


004362 


026066 








TOIIM 




(THE TOTAL TIME 


9'30 


0bV3"S"4 










FSTtW 




jnw PRsa ttm 


93t 


904366 


02572! 








AENO 




(COMMON HEADER 


932 


004370 


035756 








(PASS 




(PASS NUMBER 


933 


004372 


026327 








ERRNMB 




(ERROR NUMBER 


934 


004374 


000000 













(THAT'S ALL 


939 


004376 


000407 








BR 


81 


(CONTINUE 


93s 


PO4400 


004987 


003744 




7|> 


JSR 


R5 . TYPSN 


(TYPE 


937 


004404 


022744 








CRCP 




(2 CARRAGE RETURNS 


938 


0O4406 


025721 








AEND 




(COMMON HEADER. 


939 


004410 


029796 








(PASS 




(PASS 1. 


940 


004412 


026327 








ERRNMB 




(ERROR *. 


941 


004414 


000000 















942 


004416 


122767 


000003- 


174373 


ei( 


CMPB- 


t2, ERRIND 


(DATA ERROPT 


943 


004424 


003406 








BLE 


11 


(BR IF NOT. 


944 


004436 


004567 


003716 






JSR 


RSflYPEN 


(YES, TYPE 


945 


004482 


026275 








ADTE4A 




(DATA ERROR VALUES 


946 


004434 


026177 








ADTERR 






947 


004436 


000000 















948 


004440 


000404 








BP 


21 




949 


A04442 


012746 


036130 




111 


HOV 


l»EPROR,-tSP) 


(TYPE ERROR MESSAGE. 


950 


004446 


004767 


003714 






JSR 


PC, TYPE 




951 


004492 


123767 


000001 


174337 


211 


CMPB 


#1, ERRIND 


(EXTENDED DATA CRRO»T 


953 


0O4460 


001004 








BNE 


31 


(NO- BRANCH 


993 


004462 


013746 


026311 






MOV 


IADTEX,o(SP) 


(YES> OUTPUT POSITION IN BUFFER 


994 


004466 


004767 


002674 






JSR 


PC, TYPE 




955 


004472 


013746 


022772 




311 


MOV 


IACRLF,>(SP) 




956 


004476 


004767 


002664 






JSR 


PC, TYPE 




957 


004502 


133767 


000003 


174307 




CHPB 


(3. ERRIND 


(ERRORN CALL? 


998 


004510 


001033 








BNE 


ERSVND 


(BR IF NOT. 


999 


004512 


016702 


174346 






MOV 


TABADR,P2 


(TABLE ADDR TO R2, 


960 


004916 


012703 


000010 




411 


MOV 


I8.,R3 


(WILL TYPE 8 VALUES PER LINE, 


961 


004922 


022712 


177777 




9ii 


CMP 


i-l,(2) 


(TEPMINATORT 


963 


004936 


001417 








BEO 


61 


(BR IF YES. DONE. 


963 


004530 


013246 








HOV 


•(2)t,-(SP) 


(PUT VALUE IN STACK. 


964 


004532 


004967 


007402 






JSR 


R5,0ACNV 


(CONVERT IT TO OCTAL. 


969 


004536 


039675 








H0LD6 




(AND PUT IT HERE 


966 


004540 


013746 


035675 






MOV 


tH0LD6,>(SP) 


(TYPE IT. 


967 


004544 


004767 


003616 






JSR 


PC, TYPE 




968 


004550 


009303 








DEC 


R3 


(DONE 8 PER LINET 


969 


004593 


001363 








BNE 


51 


(BR IF NOT. 


970 


004554 


012746 


033772 






MOV 


tACRLF,-(SP) 


(OUTPUT CRLF, 


971 


004560 


004767 


003602 






JSR 


PC , TYPE 




973 


004564 


000754 








BR 


41 


(GO FOR HOPE, 



<dhW DCC/Xll STANDkKD MONITOR 
DXQABM.Pll 31>APR-77 13142 



MACytt <rU006) 33-kPR-77 OOlU PAGE 31 



SEQ 0033 



973 




013746 


033773 




6 1 1 


HOV 




1 OUTPUT CRLF 


974 




004767 


Aft94? ft 






J8R 


PC J TYPE 




975 




00S777 


174374 




ERSVNDl 


T5T 


f 8R 


(HALT MODUIiE ON ERROR? 


976 


00^602 


100410 








BHI 


^ 1 


ion iCiOf 


977 


004604 


026761 


174444 


000030 




CMP 


EPRLIMjERCNTCFl ) 


jCRROR COUNT 20 OR GREATER? 


978 


p046 1 2 


nn 1 n 1 ft 








BGT 


31 


• RD TB" MflT CnMTTMIIff MflniTT r VYVnitTntl 


979 




032777 


040000 


174354 




BIT 


MBTT1 4. AAP 


flVP^ HftT.T MnnTir.r ArTim on rDi}n&49 

1 1 bo ( nnui nuufUuFi nr ic>r Lnrunaf 


980 


004632 


001004 








BHE 


21 


yNO* SKIP 


981 




005067 


174330 




1 1 1 


CLR 






983 


uu J u 


000167 


ftftfti 






JMP 


ENDSVA 




983 


004634 


105067 


1741S4 




21 i 


CliRB 


TTYBSY 


SQUE TO RESUME 


984 


004640 


005767 


174314 






TST 


CCSPA 


»IF NOT SETUP, nOM'T RESTORE INTO MODULE 


985 


004644 


001407 








BEQ 


3« 




986 


004646 


016700 


174643 






HOV 


CSTART,RO 




987 


004652 


016760 


174303 


OOOOSO 




MOV 


CCSRA.CSRACRO} 


J RESTORE CSRA IN "MODULE 


988 


004660 


005067 


174274 






CLR 


CCSRA 




989 


004664 


000167 


174612 




3li 


JMP 


COMOUE 





QABM 1 
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-77 OOlll PAGE 


32 


DXQABM.Pll 


21-APR.77 


12:42 










990 


O04670 


104413 


001046 


ESOCOMt 


GETPAt, 


NUVBER 


jNUHBER COMTilNS ADHRESS 


991 


004674 


016746 


174150 




HOV 


NUMRPA,-(SP) 




992 


004700 


016746 


174146 




MOV 


NUMBEA, -(SP) 




993 


004704 


016746 


174136 




HOV 


NUMBER, -(5P) 




994 


004710 


160116 






SUB 


Rl, fSP) 


f COMPUTE ASSE«EI;Y PC. 


995 


004712 


004567 


007222 




JSR 


RS.OACNV 


jCONVEPT ASSEMBLY PC TO i 


996 


004716 


035746 






AEND2 






997 


004726 


004567 


00''226 




JSR 


RS.OACNVX 


rCONVERT PC TO ASCII. 


998 


004724 


025733 






AENDl 




999 


004726 


004567 


006702 




JSR 


PS.FILLNM 


jLET'S GET MQnULE NSME. 


1000 


004732 


025721 






AEND 




jSTUFF AT AEND, 


loot 


004734 


016146 


000026 




HOV 


PSCKT(Rn,-C5P) 


jGET PASS COUNT. 


1002 


004740 


005216 






INC 


(SP) 


sUP IT 1, 


1003 


004742 


004567 


007424 




JSR 


RS.BDCNV 


jCONVERT IT TO DECI-'AL «J 


1004 


004746 


035766 






APASS 






1005 


004750 


0002C7 






RTS 


PC 


JLET'S GET OUT. 
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1006 
1007 
1001 
1009 
1010 
}01i 
1013 
1013 
1014 
lOlS 



004752 
004754 
004762 
004764 
004772 
005000 
Q03006 
003012 



-APR-77 


12142 




tTYPDAT 


ROUTINE 


LOADS QUEUED 


011646 






TYPDATi 


MOV 


CSP)i-CSP) 


026737 


174122 


031222 






TVD09 - iTVDLTM 


103403 








BLO 


11 


013767 


030072 


174110 




MOV 


*TyPEQ,TYP02 


017766 


174104 


000002 


111 


MOV 


•TYPQ2r2(SP] 


062767 


000002 


174074 




ADD 


»2,TVPa2 


10S367 


173775 






DECS 


TYPSUE 


000207 








RTS 


PC 



SEQ 0035 



ISAVE EXIT ON STACK AGAIN. 
(REACHED END OF QUEUE? 
IBR IF NOT. 

jYBS. POINT TO START OF QUEUE, 
I QUEUE DATA TO STACK. 
(UPDATE QUEUE POINTER, 
(DECREMENT COUNT, 
(EXIT, LEAVE DATA IV STACK, 
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)016 










lEND CALL SERVICED HERE. 




1017 
1018 


005014 


OlllOl 






ENDSVC( 


MOV 


CBn»Rl 


(GET START ADDP, 


1019 


005016 


004767 


177S46 






JSR 


PCENDCOM 


(DO COMMON STUFF. 


1020 


005022 


052761 


020000 


000020 


ENDSVA{ 


BIS 


»BlT13iSTATCRn 


(SET STOP BIT IN MODULE STAT, 


1021 


005030 


105767 


174317 






TSTB 


CLOCK 


(CLOCK AVAILABLE ? 


1022 


005034 


001413 








BEQ 


11 


(NO, CONTINUE 


1023 


005036 


004767 


013010 






JSR 


PCERRTYM 


(YES, SETUP TIME OF DROP 


1024 


005042 


004567 


002302 






JSR 


RS.TYPEN 


(TYPE 


1025 


005046 


022744 








CRCB 




(2 GARBAGE RETURNS 


1026 


005050 


026066 








TOTIM 




[TOTAL TIME 


1027 


005052 


026111 








PSTIM 




(MODULE PASS TIME 


1028 


005054 


025721 








AEND 




(COMMON HEADEP 


1029 


005056 


025775 








MODEND 




(MODULE DROPPED 


1030 


005060 


000000 













(THAT'S ALL 


1031 


005062 


000406 








BR 


2S 


(CONTINHE 


1032 


















1033 


005064 


004567 


002260 




ISI 


JSR 


RS.TYPEN 


[TYPE 


1034 


005070 


022744 








CRCR 




(2 GARBAGE RETURNS 


1035 


005072 


025721 








AEND 




(COMMON HEADER, 


i03e 


005074 


025775 








modenc 




[END MESSAGE. 


1037 


005076 


000000 















1038 


005100 


105067 


173710 




211 


CLR8 


ttybsy 


(CLEAR TTY BUSY I'^DICATOR. 


1039 


O05104 


005761 


000020 




ENDSVE( 


TST 


STATCRn 


(BACKGROUND MODULE? 


1040 


0051 10 


100410 








BMI 


It 


(BR IF NOT. 


1041 


005112 


105067 


173675 






CLRB 


BRAKE 


(RELEASE BRAKE. 


1042 


005116 


105767 


173702 






TSTP 


STOP 


(STOP MODULES FOP RELOCATION? 


1043 


005122 


001403 








BEQ 


IS 


(NO, CONTINUE 


1044 


005124 


105767 


174224 






TSTB 


ALLBK 


(RUN ALL PKMODS BEFORE RELOCATION ? 


1045 


005130 


001413 








BEQ 


ENDSVG 


(NO, CONTINUE 


1046 


0051 32 


032761 


010000 


000020 


I$l 


BIT 


*BIT12,STATtRn 


[EXTENDED I/O MOD? 


1047 


005140 


001402 








BEQ 


61 


(N0« BRANCH 


1048 


005142 


105367 


173654 






DECS 


HDXCNT 


(YES, DEC EXTENDED "OD COUNT 


1049 


005146 


105367 


173643 




631 


DECS 


MOOCNT 


(DECR COUNT OF MODULES RUNNING, 


1050 


005152 


105767 


173646 






TSTB 


STOP 


(RELOCATE CODE? 


1051 


005156 


001445 








BEQ 


ENDSVF 


(NO- BRANCH 


1052 


0O5160 


126767 


173631 


173637 


EHDSVGt 


C«P?t 


MOOCNT. BKCNT 


(ALL 170 MODULES OFF? 


1053 


005166 


003046 








BGT 


ENDSVD 


(NO- BRANCH 


1054 


005170 


105767 


174160 






TSTB 


ALLBK 


(RUN ALL BKMOD'S BEFORE RELOCATING T 


1055 


005174 


001404 








BEQ 


11 


(NO, CONTINUE 


1056 


005176 


105767 


17361 3 






TSTB 


MODCNT 


(ALL MODULES DONE 7 


1057 


005202 


001404 








BEQ 


EHDSVB 


(YES, GO RELOCATE 


1058 


005204 


000437 








BR 


FNDSVD 


(NO, GO RUN THE PEST OF THE MODULES 


1059 


005206 


105767 


173601 




111 


TSTB 


BRAKE 


(YES- BKMOD OFF? 


1060 


005212 


001034 








BNE 


ENDSVD 


(NO- BRANCH (STOP BKMOD CLEANLY] 


1061 


00521 4 


016767 


174022 


174022 


ENDSVBl 


HOV 


OFFSET, OFFSTD 


(YES- CALCULATE NEW OFFSET 


1062 


005222 


066767 


174074 


174014 




ADD 


R0TSI2,0FFSTD 


(BY STEPPING AHEAD 8K OR 16K 


1063 


005230 


026767 


174010 


174002 




CHP 


OFFSTD, OFFMX 


(NEW ADDRESS IN RANGE? 


1064 


005236 


101402 








BLOS 


3t 


[YES- BRANCH 


1065 


005240 


005067 


174000 






CLP 


OFFSTD 


(NO- START OVER IN BANK 


1066 


005244 


004767 


01 J064 




3«t 


JSR 


PCCLKOFF 


(MAKE SURF SYSTEM CLOCK IS OFF 


1067 


005250 


004767 


014220 






JSR 


PC.HVCODE 


(MOVE PROGRAM 


1068 


005254 


004767 


013136 






JSR 


PC.CLKON 


(TURN SYSTEM CLOCK BACK ON 


1069 


005260 


112767 


000001 


174040 




MOVB 


»1,RUNRFL 


[SET FLAG TO INDICATE MODULE RESTART 


1070 


005266 


000167 


003642 






JMP 


RUNRES 


(GO STARTUP AGAIN 


1071 


005272 


105767 


173517 




ENDSVr( 


TSTB 


MODCNT 


(ANY MODULES RUNNING? 
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SEQ 0037 



1073 003376 001003 

1073 60S3OO 000167 001544 

1074 009304 000167 174704 



BNE ENDSVD 
JMP CTRLCB 
ENDSVD i JMP QUETST 



»YES- BRANCH 

iCOUNT 0, TERMINATE RUN MODE, 
iGO BACK TO SERVICE QUEUES. 
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1075 










IPASEND 


ROUTINE, 


, TYPES END or PASS MESSAGE, 


1076 










jBACKGROUND MODULES ARE NOT ALLOWED TO MAKR HULTIPLF PASSES, 


1077 
1078 


005310 


011101 






PASENDt 


MOV 


(Rl)fRl 


»LOAD R1 WITH MODULF ADDRESS 


1079 


005312 


016167 


000062 


174172 




MOV 


RSTPTtRl ) (CADDR 


jSAVE RESTAPT ADDRESS 


1080 


005320 


010167 


174170 






MOV 


P1,CSTART 


;SAVE MODULE ADDRESS 


1091 


005324 


005261 


000026 






INC 


PSCNTCRl ) 


1 INCREMENT PASS COU»;T, 


1082 


005330 


105767 


174017 






TSTB 


CLOCK 


;IS THERE A CLOCK AVAILABLE? 


1083 


005334 


001404 








BEO 


1$ 


jNO, CONTINUE 


10R4 


005336 


004767 


013130 






JSR 


PC.CKHUNG 


jGO CHECK FOR ANY "HUNG" MODULES 


1085 


005342 


004767 


013514 






JSR 


PC.PASTYM 


jSET UP RUNTIME, PASTIME INFORMATION 


1086 


005346 


033777 


010000 


173632 


111 


BIT 


iBlT12,(l8R 


jENDPAS PRINTOUT? 


1087 


005354 


001433 








BEO 


PSENDA 


•BR IF NOT. 


1088 


005356 


004767 


177306 






JSR 


PCENOCOM 


;D0 COMMON STUFF. 


1089 


005362 


016146 


000036 






MOV 


PSCNT(R1),-CSP) 


jNOW GET IT. 


1090 


005366 


004567 


007000 






JSR 


RS.BDCNV 


jCONVERT TT TO DECIMAL ASCII, 


1091 


005372 


036016 








BPSCNT 




jSTUFF IT AT BPSCNT. 


1092 


005374 


105767 


173753 






TSTB 


CLOCK 


lis THERE A CLOCK AVAILABLE? 


1093 


005400 


OOlOlO 








BNE 


2f 


jYES, CONTINUE 


1094 


005403 


004567 


001742 






JSR 


R5,TYPEN 


;TyPE 


1095 


005406 


022744 








CRCP 




>2 CABRAGF RETURNS 


1096 


005410 


025721 








AEND 




rCOMMON HEADER. 


1097 


005412 


026007 








APSEND 




jENDPAS AND COU^tT. 


1098 


005414 


022742 








CR 






1099 


005416 


000000 















1100 


005430 


000410 








BR 


PSENDA 


jCONTINUE 


1101 


005432 


004567 


001733 




2tt 


JSR 


RS.TYPEN 


fTYPE 


1102 


005426 


033744 








CRCP 




j2 CARRAGE RETURNS 


1103 


0O543O 


035731 








AEND 




jCOMMON HEADER 


1104 


005432 


036007 








APSEND 




J END PASS AND COUNT 


1105 


00S434 


036066 








TOTIM 




» TOTAL TIME 


1106 


005436 


036111 








PSIIM 




jPASS TIME 


1107 


005440 


000000 













jTHAT'S ALL 


1108 


005442 


105067 


173346 




PSENDAi 


CLRB 


TTYBSY 


jCLEAR TTY BUSY INDICATOR. 


1109 


005446 


105767 


173640 






TSTB 


CHN 


J IN CHAIN MODE? 


1110 


005452 


100032 








BPL 


10« 


jBR IF NOT 


nil 










(ELSE MAKE SURE 


EVEPY MODULE KEEPS RUNNING TILL ALL HAVE COMPLETED 


1112 










|AN END 


or PASS, 


, THEN STOP ONE 


AT A TIME, THEN RETUBN TO CHAIN MONITOR 


1113 


005454 


010046 








MOV 


RO,-(SP) 


ISAVE RO 


Ul4 


O0S456 


010146 








MOV 


RI,-(SP) 


jSAVE R1 


lllS 


005460 


013700 


036530 






MOV 


«MODO-2»R0 


jGET LIST OF MODULE ADDRESS 


1116 


005464 


063700 


000003 




lltt 


ADD 


• 2,P0 


J LOOK AT NEXT ENTRY 


1117 


005470 


011001 








MOV 


(R0)»R1 


lANY MODULES LEFT? 


UlS 


005472 


001416 








BEO 


121 


fBR IF NOT, ALL DONE, DO NOT RESTART MODULES 


1119 


005474 


033761 


040000 


000030 




BIT 


tBIT14,STAT(Rn 


(MODULE SELECTED? 


1120 


005502 


001770 








BEO 


lis 


jBR IF MOT 


1131 


005504 


033761 


030000 


000030 




BIT 


»B1T13,STAI(R1) 


jWAS IT DROPPED? 


1132 


005512 


001364 








BNE 


11« 


jBR IF YES 


1123 


005514 


005761 


000026 






TST 


PSCNT(Rn 


{HAS HE DONE A PASS YET? 


1134 


005520 


001361 








BNE 


111 


|BR IF YES 


1125 


005522 


013601 








MOV 


(SP)+,R1 


1 RESTORE R 


1126 


005524 


012600 








MOV 


(SP)+,RO 


f RESTORE RO 


1127 


005526 


000404 








BR 


101 


jGO LET THIS GUY DOING THE EOP RUN AGAIN 


1128 


005530 


012601 






1211 


MOV 


(SP)+,R1 


jRESTORE Rl 


1129 


005532 


012600 








MOV 


{SP)+,R0 


iRESTORE RO 


1130 


005534 


000167 


177344 






JMP 


ENDSVE 


iSTART LETTING MODULES DIE OFF 



euM ptq/xii smDA9D Mbii;m mem stciooo 31-apr»T7 ooiii pase h 

OXaAIM.Pli 31>kPK-7T 12)43 



SEQ 0019 



iiii 


60BS40 


109767 


173360 




leii 


TSTB 


1 (13 




001409 








•EQ 


1133 


909544 


666l67 


177333 






JKP 


1114 


908953 


109367 


173354 




I4ii 


IKCB 


il3S 


009956 


109767 


173531 






TSTB 


1138 


009963 


001403 








BCS 


1137 


009964 


109767 


173333 






TSTB 


1131 


005970 


001031 








BKE 


1139 


005973 


136767 


173334 


173233 


Hi 


CKPB 


1140 


009600 


103415 








BLO 


1141 


005603 


109767 


173507 






TSTB 


1143 


Q0S606 


001413 








BEO 


1143 


005610 


109767 


173513 






TSTB 


1144 


005614 


001007 








BNE 


tl45 


905616 


105767 


173530 






TSTB 


114S 


905633 


001004 








BNE 


114? 


905634 


109367 


173174 






I*CB 


114* 


005630 


000167 


177250 






JHP 


i 149 


005634 


009761 


000030 




3(1 


TST 


IISO 


005640 


100415 








BMI 


llSl 


909643 


105067 


173145 






CLRB 


11S3 


005646 


033761 


001000 


000030 




BIT 


I1S3 


909654 


001613 








BEO 


tiS4 


009656 


053761 


030000 


000020 




BIS 


ilSS 


6oS66« 


105367 


173139 






tiSCh 


1156 


009670 


000167 


177310 




PSENDBf 


JHP 


il57 


009674 


000167 


173602 




JHP 



1158 
1159 



STOP (STOP hlh MODULES TO ROTATE CODET 

141 iNQ BR. 

ENDSVE 

PkSTOT (COUNT TOTAL PASSES AT PRESENT OFFSET 

ROTI iHRITE BUFFER ROTATION ENABLEDT 

11 iNOf TREAT LIKE ALL BKHODS RUNHIHG 

HDXCHT I ANY EXTENDED MODULES RUHNINOT 

3t iTES- SKIP ALTERNATE RELOCATION METHOD 

PASTOT.PASREL iHO- UP TO RELOCATION HUMBERT 

2« I NO- BRANCH 

RELOC I YES- RELOCATION ALLOHEDT 

31 >N0- BRANCH 

LOCK (LOCK SET TO INHIBIT RELOCATION? 

3* }YES» BRANCH 

N8T0P lALLOH STOP TO SET 7 

31 |N0, CONTINUE 

STOP lYESf SET STOP 

ENDSVE 

STATCRl) iBACKGROUHD MODULET 

PSENDB I BR IF NOT, 

BRAKE I RELEASE BRAKE, 
lBIT9»STAT(Rn lIS IT AN NBKHOO T 

ENDSVD ;N0( CONTINUE 
»BITi3,8TAT(Ri) lYES, SET IT'S STOP BIT 

BKCNT }0m LESS BKMDD ilUKNIHa 

ENDSVE I GO TAKE CARE OF OTHER STUFF 

COMQUE iSO TO COMMON QUE CALL, 
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1160 
1161 



I TRACE TRAP ENTERS HERE. 



1162 


OOS700 


105367 


173130 


TRCIl 


DECS 


BKTIHB 


1163 


005704 


100401 






BMI 


TBCIC 


1164 


005706 


000006 




TRCIAt 


BIT 




1165 


OOS710 


116767 


173422 


173116 TRCICl 


HOVB 


BKTIHE.BKTIMR 


H«6 


005716 


005767 


173064 




TST 


lOQUE 


1167 


00S722 


001771 






BEQ 


TRCIA 


11S8 


005724 


012667 


173140 


TRCIBi 


MOV 


(SP)+,TRCPC 


1169 


005730 


012667 


173136 




MOV 


(SPl+fTRCPSW 


1170 


00^734 


000401 






BR 


EXITl, 



J I/O OR TYPE QUE WAITING? 
jNO, EXIT. 
iSAVE MOD'S PC, 
ISAVE MOD'S PSW. 
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1171 (EXIT CALL ENTERS HERE. 

1172 



1173 


po57 36 


AO 9£ 0£ 




EXITl 1 




\ 5>r J ▼ # tor; ♦ 




J J3« 


6o5 7 40 


w 1 u V 40 




MOV 


RO 1 * ( SP) 


lOnVb KU xn oi K f 


1 173 


92» Z J * 


1 6700 


173170 








• unniiTF anno Tn ca 


1176 


0057*6 


V94 / UU 


A AAA 1 




inn 


il)EUBA BA 


yPOINT TO MOP'S REG SAVE AREA 


^ * 31 


0057 5 2 


2J ?f 2S 






Mnv 


I Or J ▼ # \ / ♦ 


joAVC. HO i irru" oTAbrJa 


1178 


005754 


0101 20 








Rl f ( RO 5 + 


1 SAVE REMAINING REGSg 


1179 


005756 


10220 






HOV 


Dt /DA \ A 




1180 


005760 


010320 






HOV 


R3f C ^0)^ 




1181 


005762 


010420 






MOV 


R4,CR0)+ 




1182 


005764 


010520 






HOV 


R5#(R0D+ 




1183 


005766 


010610 






MOV 


R61 CRO) 


fSAVE MODULE STACK POINTER, 


1184 


005770 


016706 


173156 




MOV 


SPSAVpR6 


jRESTOPE MONITOR STftCK. 


118S 


005774 


005046 




EXITZ.i 


CLR 


-(SP3 


»CLEAR PSW ON STACK 


1186 


005776 


012746 


006004 




MOV 


«l$r-«SP3 


J SET UP RETURN PC 


1187 


OO6002 


000002 






RTI 




jCLEAR PSW AND CONTINUE 


1188 


006004 


000167 


174204 


lit 


JMP 


QUETST 
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1189 








»IYP04. ROUTINE 


, LOADS MSGDS I 


H90 












1191 


006010 


004767 


000242 


TYPQ4,| JSR 


PCLDTYPO 


1 192 


006014 


016700 


173116 


MOV 


MODADRfRO 


1193 


006020 


010046 




HOV 


R0,-CSP5 


1194 


006022 


004767 


000230 


JSR 


PC.LPTYPQ 


1)9S 


006026 


016046 


000060 


HOV 


AWASCRO),-(SP) 


1196 


006032 


004767 


000220 


JSR 


PCLDTYPQ 


1197 


006036 


016046 


0O00S6 


MOV 


ASBCRO),-tSP) 


U98 


006042 


004767 


000210 


JSR 


PCLDTYPO 


1199 


006046 


005726 




POPSP 




1200 


006050 


016706 


173076 


MOV 


SPSAV,R6 


1201 


006054 


000747 




BP 


EXIT2. 



(QUEUr PC+2 OF CALL 

;LOAD MODULE ADDRESS IN RO 

!ANn SAVE IN UUFUE 

» QUEUE DATA EBROR Cni'K'T 

jOUFUE SIZE OF TRANSFER 

jREMOVK PS FROM STACK 
jGET MONITOR STACK BOTNTER 
JEXIT 
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1303 








lTyPQ3« 


ROUTINE 


QUEUES INPORMATION FOR DERRX CALLS 


120] 
















1304 




01 1646 




• 


HDV 


CSP)»"{5P3 




1309 




004767 


000173 




JSR 


PCf LDTYPQ 


} QUEUE PC^3 Or CALL 


J206 


y WW 


016700 


173046 




MOV 


MODADR^ RO 


iLOAD MODULE ADDRESS IN RO 


i307 


AAA a9 A 


Ai An4A 






MQV 


RO»"£SP) 


jAND SAVE IN QUEUE 


|2Q| 


9060^3 


004767 


000160 




JSR 


PCiLDTYPQ 




130V 


UUD V ' O 


017616 


000000 




NOV 


ICSP) f (SP) 


(QUEUE VIRTUAL ADDRESS OF CHECKDATA 


}3!0 


AAA « A9 


00476? 


000150 




JSR 


PC » LDTYPQ 




1311 


006 1 06 


005726 






POPSP 






4 919 


006 } 1 


yo* r uu 






ADD 


f AHAS+Sr RO 


(GET ADDRESS OF INFORMATION 




006t 1^ 


012701 


000005 




MOV 


f 5«R1 




1314 


006 1 20 


AAA4A1 

VUv^ V 1 






BR 


31 




1315 


006123 


005010 




iti 


CIiR 


(Ro; 


(CLEAR DATA (EXCEPT LAST) 


1316 


P06124 


014046 




3li 


MOV 


•(R0),-C8P) 


iGET DATA 


1317 


006126 


004767 


000134 




J8R 


PC, LDTYPQ 


! QUEUE DATA 


1318 


006)32 


005301 






DEC 


Rl 




1319 


006134 


001373 






BKE 


11 




1330 


006136 


016700 


173774 




MOV 


MQDADR,RO 




1331 


006142 


010660 


000046 




MOV 


R6(SVR6(R0) 




1333 


006146 


016706 


173000 




MOV 


SP8AV1R6 




1333 


006152 


000167 


177616 




JNP 


EXITS, 
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1224 








lTypQ2. 


ROUTINE 


SERVICES ERROR, 


DATA ERROR, AND ERRN CALLS 


i2?S 
















1226 


006156 


011646 




TyPQ2,« 


MOV 


(SP),-CSP) 


ISAVE PC+2 OF CALL AGAIN, 


1227 


606I6O 


004767 


000072 




JSR 


PC, LDTYPQ 


»OUEUE UP PC+2 OF CALL. 


1228 


006164 


010046 






MOV 


RO,-£SP) 


iSAVE RO. 


1229 


no6l66 


017600 


000002 




MOV 


92CSP),R0 


»GET MODULE ADDR, 


1230 


006172 


062700 


000050 


TYPQXj 


ADD 


fCSRA,RO 


» 


1231 


006176 


012746 


000005 




MOV 


1I5,-£SP) 




1212 


006217 


01?046 






MOV 


CR0)+,-CSP5 




1233 


006204 


000402 






BR 


2$ 




1234 


006206 


011046 




Itl 


MOV 


(RO),-CSP) 




1235 


006210 


005020 






CLR 


(R0) + 




1236 


006212 


004767 


000040 


211 


JSR 


PC, LDTYPQ 




1237 


006316 


005316 






DEC 


(SP) 




1238 


006220 


001372 






SHE 


it 




1239 


006222 


005726 






papsp 






1240 


006224 


01260Q 






HOV 


CSP)+,R0 


(RESTORE RO. 


124t 


006226 


000167 


J77S04 




JMP 


EXIT. 
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eXQkBM.Ptl 3t*kPII*Tt 13l41 

134a iTyPQ. ROUTINE, SBRVICEB END, ENORAS, AND MSGN CAlLl. 

1341 . 

1344 9013)3 004117 000090 TYPQ.I J8R PC.IDTTPO tOUEUE UP CAll. 

1348 P04316 008734 POPaP 

1346 006340 000167 177474 JHP BXITl , 
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DXOABM.Pll 31-APR-77 13143 

1347 iTYPQl. ROUTINE, SERVICES MSG CALL. 
1348 

1349 006344 004767 000006 TYPQt.i JSR PC.LDTYPO iQUKUe UP CALL. 

1350 006390 005736 POPSP 

1351 O063S2 800167 177516 JHP EXIT2. 



QKBK 1 


5EC/X11 ; 


STANDARD 


MONITOR 


MACyll 


27(1006} 


23- 


APR-77 OOlll PA8E 


45 


SXQABM.PU 


21-APR-77 


12t42 












12S2 










I ROUTINE TO 


LOAD TYPE QUEUE. ENTERED VIA JSR PC. 




SCuJS* 
















125* 


006260 


012746 


006266 






MOV 


»3»,-CSP) 


(SETUP RETURN PC 


12SS 


006264 


000002 








RTI 




iCIiEAR PSU AND CONTINUE 


1256 


006266 


105767 


172515 




3tl 


TSTB 


TYPQUE 


jREQUEST COUNT OT 


1257 


006272 


001414 








BCQ 


11 


»BR IF YES. 


1258 


006274 


026767 


172600 


172600 




CMP 


TYPQ1,TYP02 


iNO, TYPQl AND TYPQJ SAME? 


1259 


006302 


001010 








BNE 


It 


jBR ir NOT, 


1260 


006304 


012767 


030072 


172566 




MOV 


»TYPEO,TYP01 


1 RESET THE TYPE QUEUE 


1261 


006312 


104406 


022774 






MSGt 


•QOVRrL ITES. QUEUE OFtO, CRASH SYSTEM 


1262 


006316 


104406 


023746 






HSGt 


rHLT I'HALT' 




1 263 


006322 


000000 








HAIiT 






1264 


006324 


026727 


172550 


031232 


1*1 


CHP 


TypQi.iTyptm 


(REACHED HIGH LIMIT? 


1265 


006332 


001003 








BNE 


21 


jBR IF NOT. 


1266 


006334 


012767 


030072 


172536 




MOV 


tTyPEOiTYPQl 


T RESET TYPQl. 


1267 


006342 


016677 


000002 


172530 


2*1 


MOV 


2C3P]>»TypQl 


(STORE ARGUMENT IN QUEUE 


1268 


006350 


105267 


172433 






IHCB 


TYPQUE 


(UPDATE REQUEST COUNTS, 


1269 


006354 


062767 


000002 


172516 




ADD 


i2,TyP01 


(UPDATE TYPQl, 


1270 


006362 


012616 








MOV 


(SP)+,(SP) 


{ 


1271 


006364 


000207 








RT5 


PC 


(EXIT, 
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SEO 0048 



1272 










(ROUTINE TO : 


LOAD BREAKS CALL 




1273 
1274 


006366 


112766 


177777 


000003 


LDBRK.i 


1 MOVB 


«-l,3CSP) 


(INDICATE BREAKS CALL 


1275 


00S374 


000402 








BP 


LDIOQ 




1276 


















1277 










(ROUTINE TO 1 


LOAD QUES CALL. 




1278 


















1279 


006376 


005066 


000002 




QUE,{ 


CLP 


2(SP) 


(INDICATE QUE CALL. 


1290 
1281 










(LDIOQ 


ROUTINE. MUST NOT DROP 


BELOW LEVEL OF INTERRUPTING DEVICE, 


1282 
1283 


006402 


012746 


000340 




LDioai 


HOV 


#PRTy7,-£SP) 


(PUT NEW PSW ON STACK 


1284 


006406 


012746 


006414 






MOV 


»l$f-(SP) 


(SETUP RETURN PC 


IIB'S 


0064 1 2 


ft 000 CI 








STI 




(LOAD vew PSV A??D CONTINUE 


1286 


008414 


0DC403 






iSi 


SR 


. + iO 




1287 


006416 


112766 


000001 


000002 


piRa,( 


MOVB 


ll,2(SP) 




1288 


006424 


105767 


172356 






TSTB 


lOQUE 


(REQUEST COUNT OT 


1289 


006430 


001414 








BEO 


1( 


(BR IF YES, 


1290 


006432 


026767 


172436 


172436 




CMP 


10(31,1002 


(lOQl AND IDQ2 SAME? 


« •lai 


008440 










BNE 


4 * 


• Bp Tr 1907 


1292 


006442 


012767 


027252 


172424 




MOV 


«IOQ,I00l 


(RESET lOQl 


1293 


006450 


104406 


022774 






MSSt 


jOOVRFl (QUE 


OFLO, CRASH SYSTEM 


1294 


006454 


104406 


023746 






MSG* 


,HLT ('HALT' 


1295 


006460 


000000 








HALT 






1296 


006462 


026727 


172406 


030072 


111 


CMP 


lOOl.ilOOLIM 


(PEACHED HIGH LIMIT? 


1297 


006470 


001003 








BNE' 


2* 


(BR IF NOT, 


1298 


006472 


012767 


027252 


172374 




MOV 


tlOQ.IOQl 


(RESET lOQl, 


1299 


006500 


012677 


172370 




2*1 


HOV 


{8P)+,9I0Q1 


(STORE PC-«'2 OF PENDING CALL, 


1300 


006504 


105267 


172276 






INCB 


lOQUE 


(UPDATE REQUEST COUNTS. 


1301 


006510 


062767 


000002 


172356 




ADD 


f2.I0Ql 


(UPDATE lOQl. 


1302 


006516 


005716 








TST 


(BP) 


(QUE CALL? 


1303 


006520 


001003 








BNE 


31 


(NO- BRANCH 


1304 


006522 


005726 








TST 


C5P) + 


(YES, POP STACK 


1305 


006524 


000167 


177244 






JMp 


EXIT2, 


(EXIT 


1306 


006530 


126627 


000001 


177777 


3li 


CHPB 


1(SP)»»-1 


(BREAK CALL? 


1307 


006536 


001003 








RKE 


4« 


(NO- BRANCH 


1308 


006540 


005726 








TST 


(SP) + 


(YES- POP STACK 


1309 


006542 


000167 


177172 






JMP 


EXITl. 




1310 


0065*6 


005726 






411 


TST 


(SP) + 


(PIRO- EXIT VIA RTI 


1311 


006550 


000002 








RTI 
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1312 










jKEyBOARO INTERRUPT SERVICE 




1313 
1314 


O06552 


005077 


172404 




KBSRVCl CLR 


?TKS 




JCLEAR INTERRUPT ENABLE. 


1315 


006556 


017746 


172402 




MOV 


9T!tB, 


-CSP) 


>GET CHAR. 


1316 


006562 


042716 


A A A 9 A A 




BIC 


#200» 


tSP) 


(REMOVE EXTRA BITS. 


1317 


006566 


122716 


000003 




CMPB 


»3,(SP) 


tIS IT CTRL CT 


1316 


906572 


001524 






BEQ 


CTRLCA 


»BR IF YES. 


1319 


006574 


005726 






POPSP 






(REMOVE CHAR FROM STACK, 


1320 


006576 


000004 


006604 


000000 


PXROt 


«1«»0 




>Q DEVICE SERVICE. 


1321 
1322 










?KEYBOARD SERVICE, 






1323 




















U USQ U 4 




17Z2Z6 


026752 


1»J CWP 


kbptR 


,«KBUF+KBUFL iBUFFEB EXCEEnED? 


1325 


0066 1 2 


001511 






BEQ 


12$ 




iBR IF YES, 


1326 


006614 


017746 


172344 




MOV 


»TKB, 


-CSP) 


»GET CHAR, 


1327 


006620 


042716 


000200 




BIC 


*200> 


(SP) 


jCLEAB PARITY BIT, 


1326 


006624 


121627 


000177 




CMPB 


CSP)> 


«177 


jRUBOUTT 


132' 


006630 


001443 






BEQ 


58 




JBB IF YES, 


1330 


006632 


121627 


000040 




CMPB 


CSP)» 


«40 


(SPACE? (IGNORE LEADING ONES), 


1331 


006636 


001460 






BEQ 


88 




jBR IF YES. 


1332 


006640 


121627 


000015 




CMPB 


CSP)f 


#15 


jCR? (TIME TO QUIT?), 


1333 


006644 


001 462 






BEQ 


98 




)BB IF YES. 


1334 


006646 


121627 


0000 1 2 




CMPB 


(SP)> 


«12 


jLF? (TREAT LIKE CB), 


1 335 


006652 


001457 






BEQ 


98 




iBR IF YES. 


1 336 


006654 


121627 


000060 




CMPB 


(SP)» 


»60 


jCHAR LESS THAN 607 


1337 


006660 


103425 






BIO 


108 




iBR IF YES, IGNORE IT, 


1339 


006662 


121627 


0001 4 1 




CMPB 


tSPJf 


#141 


jCKAR LESS THAN LOWfR CASE A? 


1339 


006666 


1 03405 






BLO 


28 




jBR IF YES, 


1340 


006670 


1 21 627 


000 172 




CMPB 


CSP)» 


#172 


(CHAR HIGHER THAN LOWER CASE Z? 


1341 


006674 


101017 






BHI 


10$ 




»BH IF YES, 


1342 


006676 


162716 


000040 




SUB 


«40, (SP) 


jLOWEP CASE CHAP, MAKE IT UPPER 


1343 


006702 


111677 


172130 




211 MOVB 


CSP). 


BKBPTR 


(STORE CHAR, 


1344 


006706 


005267 


172124 




INC 


KBPTR 




(UPDATE BUFFER POINTER, 


1345 


006712 


112667 


172342 




3* I MOVE 


(SP5 + 


,TTYBYT 


(CHAR TO ECHO BUFFER, 


1346 


006716 


104406 


001260 




MSGSf 


TTYBYT 




(ECHO THE CHARACTER, 


1347 


006722 


052777 


000100 


172232 


4tl BIS 


»IE,(>TKS 


(REPNABLE KYBD INTERRUPTS, 


1349 


006730 


000167 


173260 




JHP 


QUETST 




1349 


0067 34 


005726 






1081 POPSP 








1350 


006736 


000771 






BR 


48 






1 3St 
1 3S2 










iSERVICE DELETE/RUBOUT CODE, 




1 353 
1 354 


006740 


022767 


026712 


172070 


511 CMP 


iKBUF 


, KBPTR 


(BUFFER EMPTY? 


1 355 


006746 


001405 






BEQ 


6$ 




(BR IF YES. 


1356 


006750 


005367 


172062 




DEC 


KBpTR 




(POINT TO PREVIOUS CHAR, 


1357 


006754 


117716 


172056 




MOVB 


•KBPTR, CSP3 


(GET PREVIOUS CHAP, 


1358 


006760 


000754 






BP 


3$ 




(GO ECHO IT, 


1359 


006762 


005726 






611 POPSP 








1360 


006764 


1 04406 


022772 




MSG», 


SCRLF 




(OUTPUT CBLF. 


1361 




1 2767 


0267 1 2 


172040 


711 MOV 


♦ KBUF 


, KBPTR 


•RESET KBUF POI'ITEP. 


1362 


O06776 


000751 






BP 


48 






1363 


















1364 










iSERVICE SPACE. 






136S 


















1366 


007000 


022767 


026712 


172030 


BSl CMP 


♦ KBUF 


»KBPTR 


(LEADING SPACE? 


1367 


007006 


001741 






BEQ 


38 




(BP IF YES (IGNORE TT) , 
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1368 
1369 
1370 
1171 
1372 
1373 
1374 
1375 
1376 
1377 
1379 
1379 
1380 



007010 000734 



007012 
007016 
007024 
007030 



007036 
O07042 



112677 
012767 
104406 
104401 



104406 
000752 



172020 
026712 
022772 
010512 



MACYll 27(1006) 23-APR-77 OOlll 

BR 28 

(SERVICE CB AND LF. 

981 MnVB (SP) + »(»KBPTR 

172012 MOV »KBUF, KBPTR 

MSG$,ACRLF 
000000 QUE$, DECODE. 

(SERVICE KBUF OVERFLOW, 

12$( HSG$iKBOFLO 
BR 78 



PAGE 48 

(STORF IT, 



(STORE CHAR. 

(POINT TO START OF KBUF, 
(OUTPUT CRLF 

(QUE TO SERVICE COMMAND, 



(TYPE KBUF DFLO, 



g«Bn DEC/Xll STANDARD MONITOR 
OXOABM.PU 21-APR-77 12142 
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8GQ OOSt 



1 3Si 










(SERVICE CTRL 


C, ENDS RUN 


MODE 


ALSO, 


1382 










(DROPS 


TO BANKS AND 1 BEFORE 


RETURNING CIF KTU IN USE) 






















1384 










1 NEEDED 


INFORMATION PRIOR 


TO REMAPPING TO 0, OR CAUSE REMAPPING TO 


1385 










(CURRENT AREA 


AFTER 






1386 




















1387 


007044 


012706 


027212 






MOV 


#SPBOT| SP 




(REINITIALIZE STACK POINTER 


1366 


007050 


004767 


000130 




CTRLCB 1 


JSR 


PC»CTBliX 




(CLEAR OUEUESi TYPE "C 


1389 


007054 


005067 


172164 






CLR 


OFFSTD 




(GET PROGRAM BACK TO BANK 


1390 


6o7o60 


004767 


012410 






JSP 


PC,MVC0DE 






1391 


007o64 


016767 


012054 


172074 




MOV 


LPMK] ,TPS 




(RESTORE TTY 


1 392 


007072 


016767 


012050 


1 72070 




MOV 


LPWK2>TPB 






1393 


007100 


105767 


172205 






TSTB 


RMODE 




( IN RUN MODE? 


1394 


0071 04 


001002 








BNE 


it 




(BR IF YES, 


1398 


007106 


000167 


001544 






JHP 


C0MC03 




(BACK TO KYBD ROUTINE, 


13^6 


007l 1 2 


105067 


172173 




lit 


CLRB 


RMODE 




(CLEAR RUN MODE INDICATOR 


1 3^7 


0071 16 


1 05767 


5 t ^ 7 






TSTB 


CHN 




(IN CHAIN MODE? 


1398 


007i22 


100426 








BMI 


CTPICD 




(BR IF YES, BYPASS SUMMARY AND RETURN 


1399 


















(CHAIN MONITOR 


1400 


007124 


052777 


OOOlOO 


172030 




BIS 


*IE>e>TKS 




(REENABLE KEYBOARD INTERRUPTS 


1401 


007132 


104406 


022753 






MSCli 


SUMARY 




(TYPE RUN END SUMMARY TITLE, 


1402 


0071 36 


105767 


1722! 1 






TSTR 


CLOCK 




(IS THERE A CLOCK AVAILABLE? 


i 403 


00* 142 


00 i 406 








dEw 


28 




j^Of CONTINUE 


1404 


007144 


004767 


010506 






JSR 


PC.RUNTYH 




(YES, SET UP RUNTIME INFORMATION 




A ^ 7 1 C A 




032747 






MSGS i 


AiT 




■ K ATH 


1406 


007154 


104406 


026066 






Hse«> 


TOTIM 




(PRINT THE TOTAL TIME 


1407 


007160 


104406 


022742 




211 


MSGS* 


CR 




(CARRIAGE RETURN 


1406 


007164 


004767 


003144 






JSR 


PC.DIRA 




(TYPE RUN SUMMARY, 


1409 


007170 


004767 


007744 






JSR 


PCSYSNUM 




(TYPE NUMBER OF SYSTEM ERRORS 


1410 


007174 


004767 


010024 




CTRLCDs 


JSR 


PC.PWRNUM 




(TYPE NUMBER OF POWER FAILS 


141! 


007200 


090567 


006700 




JMP 


CHHOUT 




(EXIT, OR RETURN TO KYBD RTN, 


1412 
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1413 
1414 
1415 
1416 
1417 
1419 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
H?B 
1429 
1430 
1431 
1437 
14)3 
1434 
1435 
143fi 
1437 
143S 
1439 
1440 
1441 



007204 
007210 
007214 
007216 

007224 
007230 
007232 
007240 
007244 
007250 
007252 
007254 
007256 
07510 
0072f 4 
007270 
007272 
007276 
007304 
007 3! 2 
007114 
007320 
007J22 
007326 
007330 
007334 
O0''342 
007346 



01 2746 


000340 




CTRLX( 


MOV 


iPRTy7,-(SP) 


01 2746 


007216 






MOV 


•48f-(SP) 


000002 








RTI 




012767 


000144 


172270 


4tt 


MOV 


«100.,CSTART 


105767 


1720S1 






TSTB 


RMODE 


001003 








BNE 


It 


01 2767 


OOOOlO 


172254 




MOV 


1! OfCSTART 


004767 


005522 




1>( 


JSR 


PCCLROUS 


005367 


172244 






DEC 


CSTART 


001373 








BNE 


IS 


011604 








MOV 


CSP),P4 


000005 








RESET 




010416 








Mnv 


R4, CSP) 


054767 


005! 2 






JSP 


PC.CLSQUS 


105767 


172014 






TSTB 


KTPRES 


001 405 








BEO 


2t 


004767 


002516 






JSR 


PC,KTIN1T 


012737 


000001 


177572 




MOV 


»l,aiSSPO 


132767 


000001 


172026 


2S( 


BITS 


»BITO.PPRES 


nni 4AO 












004767 


002712 






JSR 


PCPAENBL 


005046 






3«( 


CLR 


-CSP) 


012746 


007330 






MOV 


I5».-CSP) 


000002 








RTI 


105267 


17145r 




5«( 


INCB 


BRAKE 


016767 


171760 


171754 




MOV 


RDTNUM.HOTCNT 


1 04406 


022770 






VSGS.CTPLC 


000207 








RTS 


PC 



(SETUP NEW PS* ON STACK 

(PUT RETURN PC ON STACK 

(LOAD NEW PSM AND CONTINUE 

(CLEAR QUEUES AND DELAY TOO. 

(IF NOT IN RHODE, SHORTEN WAIT 



(CLEAR QUEUES. 

(DONE? 

(PR IF NOT. 

(SAVE RETURN PC 

(RESTORE RETURN PC IN CURRENT BANK 
(CLEAR aUEUES I*' HICK 



(PARITY PRESENT 7 
;Nu< CONTINUE 
(YES, GO TURN ON PARITY 
(RETYPE NEW PSW ON STACK 
(PUT RETURN PC ON STACK 
(LOAD NEW PSW AMD CONTINUE 

(SET BRAKE TO PREVENT BACKGROUND MODULE FROM BEING START 

(RESET THE POTATION COUNTER 

(OUTPUT 

(FXTT, 
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1442 I SUBROUTINE TO 

1443 iVALUE OF R5 I 
1444 

1445 007350 005726 TVPENi TST 

1446 007352 012546 TYPE 1 1 MOV 

1447 007354 001403 BEO 

1448 007358 004767 000004 JSR 

1449 007362 000773 BR 

1450 007364 000205 l»1 RTS 



TYPE MULTIPLE ASCII STRINGS. NOTE THAT THE PREVIOUS 
1 NOT SAVED, 



(8P)+ I REMOVE OLD P5 FROM STACK 

(5)+#*(SP] iGET ASCII ADDRESS. 

II |BR ir TERMINATOR, 

PC, TYPE I TYPE IT. 

TYPE! I GET MORE. 

R5 I RETURN, 
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451 
452 
453 
454 
455 



1456 


007366 


012767 


007436 


172134 TYPEl 


MOV 


tTTSRVl,TIYLNK 




1457 


007374 


012667 


171506 




MOV 


(SP)+,TYPRET 


J SAVE RETURN ADDRESS 


1456 


007400 


012667 


171500 




MOV 


(SP)*,TYPADR 


ISAVE MESSAGE ADDRESS 


1459 


007404 


010167 


171530 




MOV 


RJ ,TYPRl 


jSAVE REGISTERS 1-5 


1460 


007410 


012701 


001142 




MOV 


«TYPR2»R1 




1461 


007414 


010221 






MOV 


R2,(Rn + 




1462 


007416 


010321 






MOV 


R3,(R1)+ 




1463 


007420 


010421 






MOV 


R4,CR1)+ 




1464 


007422 


010521 






MOV 


R5,(Bn + 




1465 


007424 


012777 


000100 


171534 


MOV 


♦lOffSTPS 


jSET IE 



466 
467 
46S 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
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J TYPE SUBROUTINE, 
iTYPES ASCIZ STRINfl 

I NOTE THAT IF RHODE IS SET BUT MODULES AREN'T YET BfING STARTED, 
I MUST BE SET TO PREVENT STARTNG MODULES WHILE TYPING 



007432 
007436 
007442 
007444 
007446 
007452 
007454 
007456 
007460 
007462 
007466 
007472 



000167 
117746 
001015 
005726 
012701 
012102 
012103 
012104 
012105 
016701 
005077 
000177 



172556 
171442 



171452 
171474 
171410 



JMP 

TTSRVli NOVB 
BNE 
TST 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
JMP 



OUETST 

•TYPADR,-(SP3 

TYPEB 

(SP) + 

iTYPR2,Rl 

(R1)+»R2 

(Rl)+»R3 

CR1)'(',R4 

{Rl)*.R5 

TYPB1,R1 

8TPS 

•TYPRET 



iGET CHAR. 

fBR IF MOT TERMINATOR, 
I RESTORE REGISTERS 1-5 



(CLEAR IE 



1500 


007476 


062767 


000001 


171400 


TYPEB 1 


ADD 


il.TYPADR 




1501 


007504 


122716 


000045 






CMPB 


t4S«(SP) 


lis IT %T 


1502 


007510 


001037 








BNE 


TYPEL 


|N0« BRANCH 


1503 


007512 


112716 


000015 




lYPECl 


MOVB 


flSrCSP) 


, OUTPUT CR. 


1504 


007516 


012767 


007526 


172004 




MOV 


lll»TTYL»K 




1505 


007524 


000431 








BR 


lYPEL 




1506 


007526 


112746 


000012 




Hi 


MOVB 


»12.-(8P) 


rOUTPUT IF, 
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SEO OOSS 



1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1519 
1S19 
1520 
1521 
1522 
1523 
152* 



007532 
007540 
007542 
007550 
007552 
007556 
007562 
007570 
007572 
007576 
007600 
007606 
007610 
007614 
007622 



012767 
000423 
116767 
001002 
105267 
116746 
012767 
000407 
105367 
001367 
012767 
000713 
0)2677 
012767 
000167 



007542 


171770 




MOV 


»2»fTTn<NK 










BR 


TYPEL 




171540 


171250 


2*1 


HOVB 


r ILCSTj FILCTR 


jGET FILL CuUN7t 










iBR IF NOT Oi 


171242 






INCB 


riLCTR 


iOOPS, MAKE IT A 1 , 


171S2S 




TYPEEi 


MOVB 


FILLER, -(SP5 


1 OUTPUT FILLER. 


007572 


171740 


TYPED i 


MOV 


»3».TIYLNK 










BR 


TYPEL 




171232 




3ti 


DECB 


FILCTB 


(DECREMENT FILL COUNTER 






SHE 


TYPEE 


{BR IF NOT 0. 


007436 


171722 




MOV 


#TTSRV1,TTYINK 










BP 


TTSPVl 




171354 




TYPELl 


MCV 


CSP)+,9TPB 




010000 


171266 




MOV 


110000, TYPCTR 




172366 






JHP 


OUETST 
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1525 
1526 










IROUIINE TO SERVICE CKDATA CALL 


(CDATAI) 


1527 


007626 


1 12767 


177777 


171513 


DATCK.t 


MOVB 


t-l,nATFLG 


;SET FLAG FDR DATACK CALL 


1529 


007614 


000402 








BR 


CKCONT 


{CONTINUE 


1529 


007636 


105067 


171505 




CDATA.t 


CLPB 


DATFLG 


jSET FLAG FOR CfDATA CALL 


1530 
1531 


007642 


005067 


171310 




CKCONTI 


CLR 


CDFLG 




1532 


007646 


005067 


171256 






CLR 


DEBPCT 


JINITIALIZE DATA ERROR COUNT 


1533 


007652 


004467 


005062 






JSR 


P4,SAV04 


{TEMPORARILY SAVE RFGS 


1534 


007656 


016604 


000012 






MOV 


12CSP),R4 


(GET PC+2 OF CALL 


1535 


007662 


010467 


171632 




CDATAli 


MOV 


R4,CDERR1 


(SETUP PC OF CALL 


15 36 


00'»fi66 


162767 


000002 


171624 




SUB 


t2,CDERRl 




1537 


007674 


012401 








MOV 


(R4)+,R1 


{GET BEGIN ADDRESS OF MODULE 


i«»a 


0«7«T* 


012403 








MOV 


(»♦)+, R3 


fGET TABLE A00RB9S OF RBUFPA FROM MODULE 


1519 


007700 


010361 


000052 






MOV 


R3,SBADP(R1 5 


{SAVE IT 


1540 


007704 


062701 


000032 






ADD 


tSVROiRl 


(SAVE MODULE'S REGISTERS 


1541 


007710 


012621 








MOV 


tSP) + , CRDt 




1542 


007712 


012621 








MOV 


(SP)+, (RIH 




1543 


00771 4 


012621 








MOV 


(SP) + .(Rn + 




1544 


007716 


012621 








MOV 


csp)+,cRn+ 




1545 


007720 


012621 








MOV 


(sp)+,cBn+ 




1546 


007722 


01051 1 








MOV 


R5, (Rl) 




1547 


007724 


022626 








CMP 


CSP)+,(SP)+ 




1549 


007726 


016401 


177774 






MOV 


-4(R4),R1 


{RESTORE MODULE ADDB 


1549 


007732 


012300 








MOV 


(33+, RO 


{GET READ BUFFER PA 


1550 


007734 


012167 


171164" 






MOV 


(3)+,H0DREA 


{GET EA BITS ALSO 


1551 


007740 


012305 








MOV 


(1)+,R5 


{BUFFER WORD COUWT 


1552 


007742 


016102 


000074 






MOV 


WBUFPA(R1),B2 


{GET WRITE BUFFER PA 


1553 


007746 


0161*7 


000076 


171142 




MOV 


WBUFEAtRn,MODWEA (AND GET EA BITS 


1554 


007754 


005003 








CLR 


R3 


(CLEAR OUT REG. 3 


1555 


007756 


005767 


171174 






T5T 


CDFLG 


(ENTERED FROM DATA ERROR RETURN? 


1556 


007762 


00142! 








BEO 


30J 


{MO- BRANCH 


1557 


007764 


012603 








MOV 


(SP)+,R3 


(YES- GET COUNT 


1558 


007766 


005203 








INC 


R3 




1559 


007770 


006303 








ASL 


R3 


{CREATE OFFSET 


1560 


007772 


050300 








ADD 


B3,R0 


(GET ADDRESS OF CURRENT READ BUFFER WORD 


1561 


007774 


103003 








BCC 


. + 10 




1562 


007776 


062767 


000020 


171120 




ADD 


120, MOORE A 




1563 


010004 


060302 








ADD 


R3,R2 


(GET ADDRESS OF CURRENT MRITE BUFFER HQRO 


1564 


010006 


103003 








BCC 


.♦10 




1565 


010010 


062767 


000020 


niioo 




ADD 


t20,M0DHEA 




1566 


010016 


006203 








ASR 


H3 


(RESTORE COUNT 


1567 


010020 


160305 








SUB 


R3,R5 


{CALCULATE WORDS LEFT 


1569 


010022 


012667 


171102 






MOV 


(SP)*,DCRRCT 


(RESTORE DATA ERROR COUNT 


1569 


010026 


010067 


171070 




30(1 


MOV 


RO, MODRPA 




1570 


010032 


010267 


171056 






MOV 


R2,M0DHPA 




5571 


010036 


00456" 


004560 








R5,T0P12S 


{GET 12 BIT HRITE BUFFER ADDRESS 


1572 


010042 


001114 








HODWPA 






1573 


010044 


004567 


004552 






JSR 


R5,TQP12S 


(GET 12 BIT READ BUFFER PA 


1574 


010050 


001122 








MODRPA 






1575 


010052 


105767 


171226 






TSTB 


KTPRES 


(USE KTUT 


1576 


010056 


001443 








BEQ 


It 


{N0> BRANCH 


1577 


010060 


012767 


077406 


167512 




MOV 


(77406, UIPDRO 


(MAP USER R/W 


1579 


010066 


012767 


077406 


167506 




MOV 


#77406, UIPDRl 




1579 


010074 


012767 


077406 


167502 




MOV 


#77406, UtP0R3 




1580 


010102 


012767 


077406 


167506 




MOV 


#77406. UIPDR7 
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SFS 0057 



tssi 


010110 


016767 


163224 


167522 




MOV 


KIPARO.UIPARO 


(EXECUTE IN PAGE 


isea 


010116 


016767 


170776 


167516 




MOV 


M0DW12,UIPAB1 


IPAOE 1 IS WRITE PUrFER 


158J 


010124 


016767 


170776 


167512 




MOV 


MaDR12,UIPAR2 


(PAGE 7 IS READ BUFFER 


1564 


010132 


012767 


007600 


167516 




MOV 


»7600,UIPAR7 


jPAGE 7 IS EXTERNAL 


tS85 


010140 


042700 


177700 






BIC 


I1777O0.R0 


(SETUP READ BUFFER VA 


1586 


010144 


052700 


040000 






BIS 


#40000iRO 




15B7 


010150 


042702 


177700 






BIC 


•177700. R2 


(SETUP WRITE BUFFER VA 


tsea 


010154 


052702 


020000 






BIS 


•20000, R2 




1589 


010160 


052767 


140000 


167610 




BIS 


•UMODEfPSW 


(CHANGE TO USER 


1590 


010166 


021012 






111 


CMP 


»RO,0R2 


(DATA OK? 


1591 


010170 


001436 








BCQ 


3« 


(YES, BRANCH 


1593 


010172 


005267 


170732 






INC 


DEBPCT 


(NO, COUNT DATA ERROR 


1593 


010176 


026727 


170726 


000003 




CMP 


DEBRCT,#3 


(MORE THAN 3 ERRORS? 


1594 


010204 


003404 








BLE 


21 


(NO- REPOBT ERROR 


1595 


010206 


032777 


003000 


170762 




BIT 


•BITlOfOSR 


(YES- REPORT ALL? 


1596 


010214 


001424 








BEQ 


31 


(NO- BBANCH 


1597 


010216 


011067 


170673 




2«l 


MOV 


9R0>M0DWPA 


(TEMPORARILY SAVE DATA 


1598 


010322 


011267 


170670 






MOV 


?R2,M0DWBA 




1599 


010226 


104433 








RTTKI 




(RETURN TO KERNEL 


1600 


010330 


016761 


170662 


OO00S6 




MOV 


MOpWEA.ASBCRn 


(SAVE EXPECTED 


1601 


010336 


016761 


170652 


000060 




MOV 


MODMPA, AWASCBI ) 


(SAVE ACTUAL 


1602 


010244 


010361 


000054 






MOV 


PS.MASADRCRl] 


(SAVE COUNT 


1603 


010350 


016746 


170654 






MOV 


DERRCT,-tSP) 


(SAVE DATA EBROR COUNT 


1604 


010254 


01 0346 








MOV 


R3,-tSP) 


(SAVE WORD COItNT ON STACK 


160! 


010256 


016746 


171236 






MOV 


CDEPR1»-(SP) 


(SAVE VA OF CKDATA CALL 


1606 


010262 


000167 


171230 






JMp 


CDERB 


(GO TO EPROR CALL 


1607 


010266 


005203 






311 


INC 


R3 


(COUNT WORDS CHECKEP 


1608 


010270 


005720 








TST 


CROH 




1609 


010272 


O05722 








T5T 


CR2) + 




1610 


010374 


105767 


171004 






TSTB 


KTPPES 




1611 


010300 


001420 








BEO 


5t 




1612 


010302 


032700 


017777 






BIT 


#17777, RO 


(REMAP IF NEEDED 


1613 


010306 


001005 








BNE 


4a 




1614 


010310 


162700 


020000 






SUR 


•20000, PO 




1615 


010314 


062767 


000200 


167322 




ADD 


•200,UIPAP2 




1616 


010322 


035702 


017777 




411 


BIT 


•17777, P2 




1617 


010326 


001005 








BNE 


5t 




1618 


010330 


162702 


020000 






SUB 


•20000, R2 




1619 


010334 


062767 


000200 


167300 




ADD 


«200,UIPAR1 




1620 


010342 


005305 






sai 


DEC 


P5 




1621 


010344 


001310 








BNE 


IS 




1632 


010346 


104423 








BTIKI 




•RETURN TO KEBNFIL 


1633 


010350 


005767 


170554 






TST 


DEBRCT 


(ANY DATA RRBOBS? 


1634 


010354 


001003 








BNE 


6t 


(YES, BRANCH 


1625 


010356 


012467 


170472 






MOV 


CB4)+,DSTADB 


(GET THE RETURN ADDRESS 


1626 


010362 


000423 








BP 


7« 


(GO TO COMMON RETURN CODE 


1627 


010364 


005261 


000030 




6(t 


INC 


EPCNT(Pt) 


(DATA ERRORS QCCURRFD- UP MODULE ERROR 


1628 
















(COUNT BY 1 


1629 


010370 


001002 








BNB 


.+6 




1630 


010372 


005161 


000030 






COM 


EBCNTCRl) 


(SET TO -1 IF 


1631 


010376 


016761 


170526 


000060 




MOV 


DEBPCT, AWASCPl) 


(STORE INFORMATION TN MODULE 


1632 


01 0404 


010361 


000056 






MOV 


P3,ASB(P1) 


(STORE SIZE IN ASB 


1633 


010410 


010446 








MOV 


B4,-tSP) 


(SAVE POIMTER TO FRoOR RETURN ADDRESS 


1634 


010412 


010661 


000046 






MOV 


SP,SVR6CPl) 


(SAVE STACK POINTER 


1635 


01 0416 


104432 








M5GDI 




(REPORT THTALS, HALT MODULE IF NEFDED 


1636 


010420 


012604 








MOV 


CSP)+,B4 


(GET ERROR RETURN POINTER 



QABM 1 


DEC/X1 1 


STANDARD 


MONITOR 


MACYll 


27(1006) 


23-APR' 


-77 00(11 PAGE 


56 


DX0ABM.P11 


3)-APP-77 


13l42 












1637 


010422 


016701 


170510 






MOV 


MQnADR,Rl 


(GET MODULE START ADDRESS 


1638 


010426 


013467 


170422 






MOV 


(R4)+,DSTADR 


(GET THE RETURN ADDRESS 


1639 


010432 


105767 


170711 




7«: 


TSTB 


DATFLG 


(IS THIS A DATACK CALL 7 


1640 


010436 


100003 








BPL 


et 


[NO, CONTINUE 


1641 


010440 


016734 


170464 






MOV 


DEPBCT,8(B4)* 


(YES, LOAD THE NUMBER OF DATA 


1642 


010444 


116167 


000020 


170414 


9it 


MOVB 


STATtBn,PSTAT 


(SET UP FCp MODULE PETUBN 


1643 


010452 


010100 








MOV 


Rl ,P0 




1644 


010454 


062700 


000046 






ADD 


»SVR6,R0 




1645 


01 0460 


000167 


172422 






JMP 


lOQSVD 




1646 


















1647 


01 0464 


005746 






CDRETl 


TST 


-tSP) 


(PUSH STAPK 


1648 


010466 


004467 


004246 






JSR 


R4,SAV04 




1649 


010472 


016604 


000014 






MOV 


I4t5P),R4 


(GET VA QF CKDATA CSLL 


1650 


01 0476 


062704 


000002 






ADD 


12, P4 




16B1 


010502 


005267 


170450 






INC 


CDFLO 




1652 


010506 


000167 


177150 






JMP 


CDATAl 





SEG 0058 
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SEQ 0059 



165J 








iCOMHAND DECODER. CHECKS SYNTAX 


AGAINST COMMAND TABLE, 


!iS4 








■ALL COMMANDS 


APE CHECKED AGATf^ST THE QUOTES. NO ABRPEVt ATTONS ALLOWED 


1655 
1656 


010512 


105767 


170272 




TSTB 


SPCFLG 




1657 


010516 


001404 








1 1 


■ no T I* unf 

Inn if "luig 


i6sa 


O10520 


005067 


170264 




CLR 


SPCf*LG 




1659 


010524 


000177 


170326 




JMp 




J GO VIA SRETRN, 


1660 


010530 


105767 


170555 


1 • • 


TSTB 


RMODC 


y IN RUN MODE? 


1661 


010534 


001403 












1662 


010536 


104406 


023131 






INVCDl 


J 'INVALID CMD ONLY CNTL C IS OK' 


1663 


010542 


000441 












1664 


010544 


004467 


004170 




JSR 


P4 J SAV04 


7 SAVE REGS 0*4 i 


1665 


010550 


016700 


170262 




MOV 


KBPTRf PO 


jPOINTEP TO RO ■ 


1666 


010554 


012701 


025106 


STOK s 


MOV 


ACOMTAB r P i 


{DEVICE DECODING COMES HERE 


166? 


010560 


010046 




GTOKXi 


MOV 


RO r * C SP) 


•SAVE STRING POINTEP 


1668 


010562 


122021 




GTOKl t 


CMP8 




jMATCK THE CHARACTER? 


1669 


010564 


001407 






BCQ 


GT0K2 


J YEPf SEE ir THE REST MATCH 


1670 


010566 


105721 










J NO > GO CHECK AGAINST NEXT 


1671 


010570 


001 376 






6NE 


* ^ 


{BUT FIND WHERE NEXT ENTRY IS 


1672 


010572 


111102 








( Rl 3 # RZ 




1673 


010574 


001422 












1674 


010576 


06020! 




MOPE i 


ADD 






1675 


010600 


011600 






MOV 


( 5P) f PO 


jPOINT TO BEGINNING OF INPUT 


1676 


010602 


000767 






BP 


GTOKl 


jKEEP LOOKING 


1677 


010604 


10S711 




GT0K2I 


TSTB 


(Bn 


JLAST CHP IN ENTRY? 


1678 


010606 


001 365 






BNE 


C3T0K1 


jNO, CHECK THE OTHER CHP'S 


1679 


010610 


122126 






CMPB 




jRESET SP AND Rl 


1680 


010612 


11 1102 






HOVB 


(Pt)#R2 


yGET DISPATCH ADDRESS 


1691 


010614 


060201 






ADD 


P2,R1 


?P1 POINTS TO NEXT ENTRY 


1682 


010616 


014167 


170670 




MOV 


-CR13»CADDR 




1683 


010623 


005067 


170666 




CLP 


CSTAPT 


•SET MODULE ADDR IK CSTAPT TO 0, 


1684 


010626 


010067 


170204 




MOV 


RCKBPTP 


jSAVE CURRENT BUFFER POINTEP, 


1685 


010632 


004767 


004114 




JSR 


PC,RST04 


J RESTORE REGS 0-4. 


1686 


010636 


000)67 


170640 




JMP 


COMQUE 


jGO TO COMMON QUE CALL, 



OABM DFC/X11 STANDARD MONITOR 
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(687 








1688 








1689 








1690 


010645 


104406 


033107 


1691 


010646 






1692 


010646 


005067 


170136 


1693 








1694 


010653 


105067 


170446 


1695 


01065*; 


104406 


032737 


1696 


010662 


000167 


171374 
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jCOMMON RFTURN FROM COMMAND EXECUTION A'JD Wh ROUTI'JE (INCLUDING 
iPELQCATION AND INTERNAL RESTART) 



SEQ 0060 



COMCOH MSGS.INVCMD 
CQMCONj 

C0HCD2I CLR SPCFLC 

CLRB FTLLID 
C0MC03I MSGS, DOT 
C0MCa4! JMP INPUT 



(TYPE INVALID COMMAND. 

JCLEAR SPECIAL FLAG AND 

;DIR COMMAND INDICATOR, 

JCLEAR FILL COMMAND INDICATOR, 

JTYPE DOT. 

iGO GET MORE INPUT. 
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DXQABH.Pll 21-APR-77 12142 SEC 0061 



1697 iSPGCIAI, INPUT ROUTINE, 

169B iCALLED BY MODirY ROUTINEf WHEN MAITING FOP NEW VALUE TO BE INPUT. 

1699 

1700 010666 012667 170164 SINPUTi MOV CSPl+tSRETRN jSAVE RETURN ADDR, 

1701 010672 105267 170112 INCB SPCFIiO JSET SPECIAL FLAG. 

1702 010676 000771 BR C0HC04 



0A8M OBC/Xll STANDARD MONITOR MACYll 27C1006) 23-APR-77 OOlll PAGE 60 



DXOABM.Pll 2 


-APR-77 


12142 












1703 










iRUN 


ROUTINE. 


STARTS EXERCISER 


EXECUTION. 


1704 










iNOTE 


THAT "BUN" IS ENTERED ONLY FROM BANK 0, BUT "flUHRES" IS USED WHEN 


1705 










iTHE 


PPOGPAM 


IS NOT IN BANK 0, 




1706 
1707 


010700 


112767 


000001 


170421 


RUNLI 


MOVB 


* 1 . LOCK 


iSET LOCK TO PREVF.NT RELOCATING CODE EACH 


1708 
















jTIHE WBUF IS CYCLED 


1709 


010706 


000*0? 








BR 


.+6 




17)0 


010710 


105067 


170413 




RUN» 


CLPB 


LOCK 


fCLEAR LOCK TO ALr.OM CODE RELOCATION 


1711 


010714 


005067 


170324 






CLR 


OFFSTD 




1712 


010720 


005067 


170340 






CLR 


5YSCNT 


»ZEPO SYSTEM ERROR COUNTER 


1713 


010724 


005067 


170336 






CLR 


PWRCHT 


iZERO POWER FAIL COUNTER 


1714 


010730 


132767 


000001 


170415 


6*i 


BITB 


IBITO, CLOCK 


lUSING THE KWll-L CLOCK 7 


1715 


010736 


001403 








BEO 


I( 


»N0« CONTINUE 


1716 


010740 


004777 


170420 






JSR 


PC,9ALCLR 


lYES, HAKE SURE CLOCK TABLE IS CLEARED 


1717 


010744 


000406 








BR 


29 


jCONTINUE 


1718 


010746 


132767 


000002 


170377 


t«l 


BITB 


IHITl. CLOCK 


jUSING THE KWll-P CLOCK ? 


1719 


010754 


001402 








BEO 


2« 


>N0, CONTINUE 


1720 


0107S6 


004777 


170404 






JSR 


PC,»APCLB 


jYES, MAKE SURE CLOCK TABLE IS CLEARED 


1721 


010762 


012767 


042761 


001540 


2*t 


MOV 


«42761,SLDSB 


> RESTORE THESE INSTRUCTIONS 


1722 


010770 


012767 


042761 


001554 




MOV 


t42761«SLDSE 


;FOR A CHECK SUM MODULE 


1723 


010776 


004767 


002446 






JSR 


PCGETADR 




1724 


011002 


000436 








BP 


St 


»IF INVALID OR NO APDRESS, FORCE 


1725 


011004 


016701 


170032 






MOV 


ADDRL0,R1 


;GET LOW ORDER BITS 


1726 


011010 


016700 


170030 






MOV 


ADDRHI.RO 


;GET ANY HIGH ORDER BITS 


1727 


011014 


006200 








ASR 


RO 




1728 


011016 


006001 








ROR 


PI 




1729 


911020 


006200 








ASR 


RO 




1730 


011022 


006001 








ROR 


R! 




1731 


011024 


000241 








CLC 






1732 


011026 


006001 








ROR 


Rl 




1733 


011030 


006201 








ASR 


Rl 




1734 


011032 


006201 








ASR 


Rl 




1735 


011034 


006201 








ASP 


Rl 




1716 


011036 


042701 


000177 






BIC 


»177,R1 


J FORCE TO 4K BOUNDARY 


1737 


011042 


001416 








BGQ 


St 


J IF HOW 0. SKIP REST {TO PRF.VENT ERR PRINTOUT 


1738 
















lIF KTPPES WAS CLEARED) 


1739 


011044 


020167 


170170 






CMP 


Rl fOFFMX 




1740 


011050 


101403 








BLOS 


3t 


jADDRESS IS OK. CONTINUE 


1741 


011052 


104406 


023203 






MSGtf 


INVCD2 


J 'CANNOT GO THAT HIGH' 


1742 


011056 


000673 








BR 


COHCON 


jCONTINUE 


1743 


011060 


105767 


170250 




381 


TSTB 


KTPRE8 


IKTU IN USE? 


1744 


011064 


001003 








BNE 


4t 


lYES, CONTINUE 


1745 


011066 


104406 


023241 






MSGtr 


INVCD3 


I'NEED KT-11' 


1746 


611072 


000665 








BP 


COMCOH 


ICONTINUE 


1747 


011074 


010167 


170144 




4»f 


MOV 


Rl, OFFSTD 




1748 


OlllOO 


112767 


000001 


170203 


5tt 


MOVB 


tl.RNODE 


fMAKE SURE BANK COPY OF RMODE IS 


1749 
















ISET WHILE EXECUTING MVCODE 


1750 


011106 


J05067 


170214 






CLRB 


RONRFL 




1751 


011112 


004767 


010356 






JSR 


PC,MVCODE 


(MOVE PROGRAM TO NEW BANK AND GO THERE 


1752 


011116 


105067 


170167 






CLRB 


RMODE 


(CLEAR CURRENT COPY OF RMODE 


1753 


011122 


012767 


026520 


170140 




MOV 


iM0D0-2,BKPTR 




1754 


011130 


004767 


003714 






JSR 


PCCLRVEC 


(INITIALIZE TRAPCATCHER IN VECTOR AREA 


1755 


011134 


004767 


003626 




RUNRESI JSR 


PCCLROUS 


(INCLUDES CLEARING BRAKE, MODCNTr lOBKID 


1756 


011140 


132767 


000002 


170172 




BITB 


*BIT1,PPRES 


(IS IT AN 11/60 7 ••«»•*•••»«**••*««••»«•• 


>757 


011146 


001424 








BEO 


lit 


(NO, CONTINUE 


1758 


oniso 


012767 


100001 


170316 




MOV 


tlOOOOl.LGHOLD 


(YES, LOAD ERROR LOG ENABLE BIT 
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1759 
















jAHO FREEZE ON FIRST ERROR BIT 


i?SQ 


01 1156 










WHITE 


RDWHHI.WTWHMI 


(ENABLE 11/60 ERROR LOS 


1761 


011156 


010046 








Mnv 


B0,-CSP5 


tSAVE RES. 


1762 


011160 


076600 


000022 






MED.RDHHMI 


iSAve 


176J 


011164 


056700 


170304 






BIS 


LGHOLOfRO 




1764 


011170 


076600 


000232 






MED,HTHHHI 




ns5 


011174 


012600 








MOV 


(SP)+>RO 


{RESTORE PES. 


1766 


011176 


017767 


170274 


170274 




MOV 


*CONTBti,KONTRI; 


jGET CURRENT STATE 


1767 


011204 


052767 


000300 


170266 




BIS 


«200»K0HTRE. 


lADD ABORT BIT 


1769 


011212 


016777 


170262 


170256 




MOV 


KONTRL.WOMTRL 


{WRITE IT BACK •»**•••«•**«•«••••«•*••••••«•»«• 


1769 


011220 


112767 


177777 


167575 


11$< 


MOVB 


l-l,WBFLG 


{INITIALIZE BUFFER ROTATION FLAG 


1770 


011226 


012702 


026522 






MOV 


*MbDQ,R2 


{SETUP TO COUNT SELECTED MODULES« AND 


1771 
















{IF NOT SYSERR OB POWER FAIL RESTART 


1772 
















{CLEAR MODULES' PASCNT AND ERRCNT, 


1773 


011233 


012201 






HI 


MOV 


t2)*»Rl 


(MODULE ADDR TO Rl . 


1774 


011214 


001462 








BEQ 


BUKC 


{BP IF NO MORE. 


177! 


011236 


105767 


170047 






TSTB 


RMODE 


{INTERNAL RESTART? 


1776 


011242 


001012 








BNE 


21 


{BR IF YES. 


1777 


01 1244 


105767 


170042 






TSTB 


CHN 


{IN CHAIN MODE? 


1779 


011250 


100407 








BMI 


2t 


{BR IF YES. 


1779 


011252 


005061 


000026 






CtR 


PSCNTtRl) 


{CLEAR MOO'S PASCNT, 


1790 


J 1556 


00506! 


000030 






Ct.R 


EBCNT(Rl) 


iCLEAR HOD'S ERROR COUNT. 


1791 


011262 


042761 


020000 


000020 




BIC 


IBIT13,STAT(Rn 


{CLEAR STOPPED BIT. 


1792 


011270 


032761 


040000 


000020 


281 


BIT 


»BIT14,STAT(R1) 


{MODULE SELECTED? 


1783 


011276 


001755 








BEQ 


iS 


I if it IF NOT. 


1794 


011300 


032761 


020000 


000020 




BIT 


»BIT13,STAT£Rn 


{MODULE STOPPED? 


179S 


011306 


001351 








BNE 


It 


{BP IF YES. 


1796 


011310 


00S767 


167726 






TST 


OFFSET 


{IF OFFSET 0, IGNORE BITS 10+11 


1797 


011314 


001414 








BEG 


3t 




1799 


011316 


032761 


004000 


000O20 




BIT 


»eiTll,STAT(Rl) 


{NOT 0- IF BITll IS SET, DON'T COUNT IT 


1799 


011324 


001342 








BNE 


It 




1790 


011326 


032767 


001777 


167706 




BIT 


»1777fOFrSET 


{32K BOUNDARY? 


1791 


011334 


001404 








BEO 


3» 


{YES- IGNORE BIT 10 


1792 


011336 


032761 


002000 


000020 




BIT 


»BIT10,STATCR1) 


{NO- BIT 10 SET? 


1793 


011144 


001332 








BNE 


IS 


{YES- DON'T RUN THIS MODULE 


1794 


011346 


105267 


167443 




311 


INCB 


MODCNT 


iHO, UP COUNT OF RUNABLE MODULES. 


1795 


011352 


005761 


000020 






TST 


STATtRl) 


{BKMOD? 


1796 


011356 


100402 








BMI 


.+6 


{NO- BRANCH 


1797 


011360 


105267 


167441 






INCB 


BKCNT 


{YES- UP COUNT 


1799 


011164 


032761 


ntOOOO 


000020 




BIT 


»8IT12,STAT(P1) 


{EXTENDED MODULE? 


1799 


011372 


001402 








BEO 


• +6 


{NO- BRANCH 


1900 


011174 


105267 


167426 






INCB 


XCNT 


{YES- COUNT IT 


1901 


01 1400 


000714 








BR 


1« 


{GO CHECK NEXT MODULE. 


1902 


011402 


105767 


167407 




RUNCI 


TSTB 


MODCNT 


{AMY RUNABLE MODULES? 


1903 


01 1406 


OOlOOS 








BNE 


51 


{YES, BRANCH 


1904 


01 1410 


005767 


167626 






TST 


OFFSET 


{NO, OFFSET 0? 


1905 


011414 


001501 








BEQ 


RUND 


{YES- COMMAND INVALID 


1906 


011416 


000167 


173572 






JMP 


ENDSVB 


;N0- THE ONLY KODS RUNNABLE MUST BE THOSE 


1907 
















(WITH BITS 10 OR 11 SET- RELOCATE 


1809 


011425 


116767 


167367 


167366 


5«i 


MOVB 


MODCNT, MODCTS 


{LOAD COUNT OF RUNN»BLE MODULES 


1909 
















•INTO STARTUP COUNTER 


1910 


01 1430 


012767 


026520 


167402 




MOV 


»MbDQ-3,M0DPTR 


{MODULE TABLE AODP TO MODPTR. 


1911 


011436 


012767 


040000 


167414 




MOV 


440000.IOBKID 


{START WITH SPECIAL BACKGROUND MODULES. 


1912 


Oil 444 




167702 






INCB 


nsTOP 


{SET THE NON-STOP FLAG 


1913 


01 1450 


105767 


167637 






TSTB 


POTT 




1914 


01 1 454 


001447 








BEQ 


2« 
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1915 


011456 


116767 


167344 


167345 


1916 








1917 


011464 


106367 


167341 




1919 


011470 


106367 


167335 




1919 


011474 


106367 


167331 




1920 


01 1500 


106367 


167325 




1921 


01 1504 


126727 


167316 


000030 


1922 


011512 


103403 






1923 


011514 


112767 


000377 


167307 


1924 


011522 


116767 


167303 


167604 


1925 


011530 


116767 


167261 


167275 


1936 


011536 


106367 


167271 




1927 


011542 


106367 


167265 




1929 


01 1546 


106367 


167261 






011555 




167237 


000040 


1930 


011560 


103403 






1931 


011562 


112767 


000377 


167343 


1932 


01 1570 


004767 


000050 


1933 


011574 


105767 


167511 




1934 


01 1600 


001005 






1915 


01 lEO? 


10*406 


0*27^7 




1936 


01 1606 


112767 


OOOOOl 


167475 


1937 


011614 


000167 


170342 




1939 


01 1620 


005067 


167420 




1939 


011624 


004767 


007644 




1940 


011630 


105067 


16745J 




1941 


011634 


104406 


023316 




1942 


01 !640 


onoib? 


177002 





3ti 
2(1 



4tl 

RUND I 



MOVB 


XCNT,RnTCT 


ASLB 


ROTCT 


ASL3 


ROTCT 


ASLB 


ROTCT 


ASLB 


ROTCT 


C«PR 


XCNT, 420 


PLO 


1( 


MOVB 


1377, ROTCT 


MDVB 


ROTCT, 4GWBFC 


MOVB 


MODCNT, PASBEL 


ASLB 


PA8REL 


ASLB 


PASREL 


ASLB 


PASPEL 


CMPS 


MODCNT, #40 


BLO 


34 


MOVB 


»377, PASREL 


JSR 


PCSETHBF 


TSTB 


RMODE 


BNE 


4S 


?^SGS , 




MOVB 


11, RMODE 


JMP INPUT 


CLP 


OFFSTD 


JSR 


PC.MVCODE 


CLRB 


RHODE 


MSGl, 


INVCD4 


JMP 


COMCON 



{SETUP ROTATION TIMFDUT COUNTER- 16 TIMES NUMBER 
{OF EXTENDED MODULES 



(PREVENT LOSS OF COUNT IF OVERFLOW 



(INITIALIZE WRITE B'JFFER ROTATION COUNTER 
{SET ALTERNATE RELOCATION COUNT TO 8 
{TIMES MODCNT 



{SET RMODE IN CURRENT BANK 



i'NO MODULES SELECTED' 
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194J 










1 SETUP 


WRITE BUrrEB INFORMATION 




1 844 


















1845 


011644 


004567 


003022 




SETWBF J 


JSB 


R5,T01BS 




1 846 


011650 


001242 








orrsET 






1847 


ni 1652 


001232 








WBUF 






1848 


01 1 654 


001234 








WBFEA 






1949 


011656 


066767 


167336 


167346 




ADD 


LOCOREfWBUF 




1850 


011664 


103003 








BCC 


• tio 




1851 


01 1666 


062767 


000020 


167340 




ADD 


I20«WBFEA 




1852 


011674 


016767 


167324 


167334 




MOV 


LC0R12,WBUF12 




1853 


011702 


066767 


167334 


167326 




ADD 


OFFSET, WBUF12 




1854 


011710 


026767 


167322 


167310 




CMP 


WBUri2,HCORl2 


}IS WRITE BUFFER AT THE TOP ? 


1655 


011716 


001003 








BNE 


SETWBl 


jNO, IT'S OK, CONTINUE 


1856 


011720 


004767 


004726 






JSR 


PCPOTLOW 


lYES, SETUP TO ROTATE BELOK PROGRAM 


1857 


011724 


000207 








RTS 


PC 


jRETURN 


185B 


















1859 


on 726 


016767 


167274 


167322 


SETWBl 1 


MOV 


HCbP12,MXWBF 


tCALCULATE max size of WRITE BUFFER 


I860 


on 734 


105767 


167352 






TSTB 


CHN 


|IN CHAIN MODF, ? 


1B61 


011740 


1 00003 








BPL 


It 


|N0, DOM'T ADD ANY VORE WRITE BUFFER 


1862 


011742 


062767 


000040 


167306 




ADO 


»40,MXWBF 


lYES, ADD IK TO MAX. WRITE BUFFER SIZE 


1863 


01 1750 


166767 


167262 


167300 


t*t 


SUB 


WBUF12,MXWBr 




1 864 


011756 


006367 


167274 






ASL 


MXWBF 




18S5 


Oil 762 


006367 


167270 






ASL 


MXWBF 




1866 


011766 


006367 


167264 






ASL 


MXWBF 




1867 


011772 


006367 


167260 






ASL 


MXMBF 




1868 


01)776 


006367 


167254 






ASL 


MXWBF 




1869 


012002 


103003 








BCC 


. + 10 




1970 


013004 


012767 


177777 


167244 




MOV 


«177777#HXWBF 




1871 


019012 


000207 








RTS 


PC 
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1872 










1873 










1874 


012014 


012737 


015254 


000250 


1875 


012022 


012737 


000340 


000252 


1B76 


012030 


012701 


001276 




1877 


012034 


niJ737 


000006 


000004 


1878 


012042 


012737 


000003 


000006 


1879 


012050 


012703 


000040 




1880 


012054 


012102 






1881 


012056 


005012 






1882 


012060 


062702 


000002 




1883 


012064 


005303 






1884 


012066 


001373 






1885 


012070 


020127 


001302 




1686 


0)2074 


003765 






1667 


012076 


012737 


015246 


000004 


1668 


012)04 


012737 


000340 


000006 


1889 


0121)2 


012737 


140000 


177776 


1890 


012120 


012706 


027002 




1891 


012124 


105767 


167203 




1692 


012130 


001405 






1693 


012132 


012737 


040000 


177776 


1694 


012140 


012706 


027012 




1895 


012144 


005037 


177776 




1696 










1897 










1898 










1899 










1900 










1901 


0)2150 


004467 


002564 




1902 


012154 


005001 






1903 


012156 


012702 


172300 




1904 


012162 


012703 


000007 




1905 


012166 


012712 


077406 




1906 


012172 


010162 


000040 




1907 


012176 


005722 






1908 


012200 


062701 


000200 




1909 


012204 


005303 






1910 


012206 


001367 






1911 










1912 


012310 


012737 


007600 


172356 


1913 


012216 


012737 


077406 


172316 


1914 


012224 


004767 


002522 




1915 


012230 


000207 







2»» 



jKTll INITIALIZATION ROUTINE ASSUMES KT1 1 IS OFF WKEN CALLED 

KTINITl MOV »KTERR, 91250 jSETUP MEMORY MANAGFHFNT ABORT VECTOR 

MOV #PRTY7»P»252 jDON'T LET ANYTHING ABORT A MEMORY MAN«GE«E»;T ABORT 

MOV »PDPTAB,RJ jSETUP TO CLEIR ALL KTl) REGISTERS 

MOV •6,»»4 sSETUP TO RTI IF KT11-D WHEN 

MOV #PTI,JI»6 ;ADDPESSING REGISTERS IT LACKS 

l«l MOV 132. ,P3 tLOAD THE COUNT OF KT) I REGISTERS TO BE CLEARED 

MOV tRl)+,R2 »GET ADDRESS OF REGISTER SET 

CLR tP2) jCLEAR ALL PAR'S AND POP'S 

ADD #?,P2 jUSF THE ADD INSTRUCTION TO POINT TO THE "EXT REGISTER, 

DEC R3 » REDUCE COU^T OF APR REGISTERS CLEARED 

BNE 28 ;IS COUNT EXCFEHED? IF NO, GO CLEAR AGAIN 

CMP R1,#PDREND iIF YES, THEN Is THE TABLE BOUNDARY EXCEEDED? 

BLE H :IF NO, no THE KEXT SET IN THE TABLE 

MOV »BUSERP,9»4 jPESTORE THE RUS FRPOP VECTOR. 

MOV »PRTY7,9»6 rPESTORE THE BUS ERROR PRIORITY 

MOV »UMODE, 9IPS >SFT TO USFP MODE 

MOV iUSP,SP »LOAD USER STACK POINTER 

TSTB HD!;,45 ,15 THIS A POP 11/457 

BEQ 33 J IF NOT, DO NOT SET UP THE SUPERVISOR STACK 

MOV ISMODE.^iPS jIF YES, SET TO SUPERVISOR MODE 

MOV »SSP,SP JLOAD SUPERVISOR STACK POINTER 

CLR (»tPS :RETURN TO KERNFL MODE 



ISET UP ALL THE PAGE DESCRIPTIONS THE SSMEl READ/WRITE PROTECTION 
jUPWARD PAGE ADDRESSING, AND M4XIHUH BLOCK COUNT, 
1 (177 OCTAL BLOCKS ■ )28 X 32 WORD DECIMAL BLOCKS) 



KTSETOl 


JSR 


R4,SAV04 


jSAVE REGS. THRU 4 




CLR 


R1 


|MAP STARTING AT BANK 




MOV 


iKIPDP0,R2 


J LOAD ADDRESS OF PDR 




MOV 


t7,R3 


ILOAD COUNTER TO DO 28K 


1«» 


MOV 


#77406, (R2) 


(SET THE PDR TO 4K, R/W, UP 




MOV 


R1,40(R2) 


(SET THE PAR TO THE PROPER 4K BANK 




TST 


CR2) + 


•POINT TO NEXT PDR AND PAP 




ADD 


#200, PI 


(STEP TO NEXT 4K BftMK 




DEC 


R3 


(ALL DONE ? 




BNE 


It 


(NO, CONTINUE 




MOV 


#7600,9»KIPAR7 


(POINT REGISTER 7 TWE UNI9US ADDRESS SPACP 




MOV 


#77406, 9#KIPOR7 


(SETS UP REGISTER 7 




JSR 


PC,PST04 


(RESTORE PEGS, THRU 4 




RTS 


PC 


(RETURN TO THE CALLING PROCEDURE 
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SEQ 0067 



1916 IPARITY ENABLE ROUTINE — ASSUMES THAT PARITY IS PRESENT 

1917 



1918 


013232 


1 3276? 


000002 


187100 


PAENBIit 


BITS 


tBlTJ»PPRES 


lis IT AN 11/60 7 ««•*•«*«**«•*«*««****«««««** 


1919 


01 3240 


001403 








BEQ 


1 ( 


jNO» CONTINUE 


1920 


01 3242 


052777 


000001 


167226 




BIS 


# 1 f flCONTRL 


(ENABLE CACHE PARITY TRAPS •••••*•••••••*••«••• 


1931 
1933 


01 2250 


01 2700 


001430 




111 


MOV 


tPARTABf RO 


tCET ADDRESS OF PARITY ADDRESSES 


1933 


012254 


005001 








CLR 


HI 


(CLEAR COUNTER 


1934 


















1925 


01 2756 


012770 


u u u u >J 1 


rt nnrt fl ft 


28 1 


HDV 


iljM(ROj 




1926 


012264 


033770 


000001 


000000 




BIT 


»1,9(R0) 


jlS PARITY ENABLED ? 


1927 


012272 


001003 








BNE 


3* 


JYBS, CONTINUE 


1938 


012274 


004767 


003476 






JSP 


PCPAMSG 


(NO, REPORT THE ERROR 


1929 


















1930 


012300 


005720 






3ti 


TST 


CROH 


(STEP TO NEXT REGISTER ADDRESS 


1931 


01 2302 


005201 








INC 


Rl 


(STEP THE REGISTER COUNTER 


1933 


012304 


136701 


i»"r.3i 






CMPB 


CNIl.Rl 


(ALL PARITY REGISTERS SET 7 


1933 


012310 


003362 








BST 


31 


(NO, 00 THE NEXT ONE 


1934 


















1935 


012312 


000207 






411 


RTS 


PC 


(YES, ALL DONE, RETURN 
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SEO 006B 



1937 










(MAP 


ROUTINE. 


TYPES RESIDENT MQ 


1930 












1939 


012314 


105267 


166471 




MAP( 


INCB 


OIRIND 


1940 


012320 


105067 


013303 






CLRB 


MDIRE 


1941 


012324 


004767 


000004 






JSR 


PCDIRA 


1942 


012330 


000167 


176312 






JMP 


COHCON 


1943 
















1944 


012334 


012702 


026522 




oiraI 


MOV 


IM0D0,R2 


1945 


012340 


012201 






Itt 


MOV 


t2)+.Rl 


1946 


01234? 


001446 








BEO 


5S 


1947 


012344 


032761 


040000 


000020 




BIT 


#BIT14,STAT(R1) 


1948 


012352 


001003 








BNE 


2t 


1949 


012354 


105767 


166431 






TSTB 


DlPIND 


1950 


0133A0 


OOJ767 








BEO 


1« 


1951 


012362 


004567 


001246 




2«l 


JSR 


R5,riLLNM 


195? 


012366 


025574 








AMODNM+l 


1953 


012370 


010146 








MOV 


Pi ,-tSP) 


1954 


013372 


004567 


00154? 






JSR 


R5,0ACNV 


1955 


01 2376 


025605 








A PC 




1956 


012400 


016146 


000020 






MOV 


STATCR1),-(SP) 


1957 


012404 


004567 


001530 






JSR 


RS.OACNV 


1958 


012410 


025621 








AMDSTA 




1959 


012412 


016146 


000026 






MOV 


PSCNTCR1),.(SP) 


i960 


012416 


004567 


001750 






JSR 


RS.BDCNV 


1961 


012422 


025640 








APSCNT 




1962 


012424 


016146 


OOOOJO 






MOV 


ERCNTtRl),-(SP) 


1963 


012430 


004567 


001736 






JSR 


R5,»DCNV 


1964 


012434 


025657 








AERBS 




1965 


012436 


105767 


166347 






TSTP 


DIRIND 


1966 


012442 


001003 








BNE 


3( 


1967 


012444 


112767 


000040 


013155 




MOVR 


140, MDIRE 


1969 


012453 


104406 


025573 




3S| 


MSGS, •MODNH' 


1969 


012456 


000730 








BR 


IS 


1970 


012460 


000207 






5>l 


RTS 


PC 



(SET DIP INDICATOR, 
(TERMINATE ASCII STRING EARLY. 
(TYPE MAP, 



(GET MODULE TABLE ADDR, 
(GET MODULE AHDR. 
[BR IF 0. ALL DONE. 
(MODULE SELECTED? 
(BR IF YES. 
(TYPING DIRECTORY? 

rW» IF fOT, or»«»T TtPt t!'«SFtFCTCP »'ODS, 
(FILL MHD NAME TN ASCII STRING. 
(ADDR TO STUFF NAME IN, 

(MODULE ADDR TO STACK, 
(CONVERT MOD ADDR TG ASCII, 

(CONVERT MODULE STATUS. 



(MOD'S PASS COUNT TO STACK, 
(CONVERT IT TO DECI^^AL ASCII, 

(HOD'S ERROR COUNT TO STACK. 
(CONVERT IT TO DECIMAL ASCII, 

(TYPING DIRECTORY? 
(BR IF YES. 

(NO. ALLQ-l TYPING FULL STRING 
(TYPE ASCII LINE. 
(DO IT AGAIN. 
(EXIT. 
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1971 






1973 






1973 


A 1 3462 


012767 


1974 


012470 


012787 


1975 


012476 


000406 


1976 






1 977 






1 978 






1979 


012500 


013767 


1960 


1 2506 


013767 


1991 






1962 






1963 






1964 


012514 




1965 


012514 


004767 


1 986 


01 3530 


000410 


1987 




000405 


1988 


01 2524 


016701 


1 989 


012530 


042761 


1990 


013536 


000167 


1991 


013542 


012702 


1993 


012546 


012201 


1993 


012550 


001772 


1994 


012552 


042761 


1995 


012560 


000772 


1996 







053761 
052761 



042761 
043761 



001142 



166310 
040000 
176104 
036522 



000040 
000054 



000022 
000036 



iSELECT MODULECS) ROUTINE. 



SEll 



MOV 
MOV 
BR 



*53761,SLDSB 
*S2761,SLDSE 
SLDS 



(DESELECT HODULE(S) ROUTINE, 



DESI 



MOV 
MOV 



143761, SLDSB 
•43761, SLDSE 



I SELECT/DESELECT COMMON, 



SLDSt 

SliDSAi JSR 
BR 
BR 
MOV 

000020 SLDSBi BIC 
SLDSLI JMP 
SLDSCi MOV 
SLDSDt MOV 
BEO 

000020 StDSEi BIC 
BR 



PC.CETNAM 

SLDSC 

SLD5L 

M0DPTR,B1 

fBlT14,STATCBl) 

COMCON 

*HoDO,R3 

t35+.Pl 

SLDSL 

«BIT14,STAT(R1) 
SI.D8D 



SEQ 0069 



(MOOirV COMMON TO SELECT MODUtE{S), 
I 

tSO TO COMMON, 



IHOOIFY COMMON TO DESELECT MODULECS), 



iCHECK NAME, GET MODULE ADDR, 

jNO NAME, SELECT/DESELECT ALL, 

I INVALID OR NEX NAME, 

(MODULE ADDR TO Rl, 

I SELECT/DESELECT MODULE, 

(DONE, 

(MODULE TABLE ADDR TO R2, 
(GET MODULE ADDR, 
(BR IF O.END OF TABLE, DONE, 
(SELECT/DESELECT MODULE, 
(DO IT AGAIN, 



(LOCATIONS SLDSB AND SLDSE APE PURE WHILE IN Rt'N MODE, 
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1997 










(KTll 


DISABLE ROUTINE 




1999 


















1999 




105767 


166516 




KTOrF( 


TSTB 


KTPPES 




2000 


ni3S66 


001002 








BNE 


11 




2001 


ni257n 


000167 


176062 






JMp 


C0MC03 


(IGNORE COMMAND- NO KT OP ALPEADY 


2002 


012574 


105067 


166504 




l«l 


CLPB 


KTPRES 


2003 


















2004 


















2005 


012600 


005037 


177572 






CLR 


9(SSR0 


(TUPN OFF KTll 


2006 


013604 


026727 


166416 


001600 




CMP 


HCOP12,«1600 


(MORE THAN 28K AVAILABLE ? 


2007 


013612 


101403 








BL05 


2t 


(NO, CONTINUE 


3008 


012614 


012767 


001600 


166404 




MOV 


tl600,HCOP12 


(YES, SET MSMORY SIZE TO 3SK 


2009 


012622 


104406 


024007 




2*1 


MSSSi 


.KTDIS 


("KTll OFF" 


2010 


012626 


000167 


176024 






JMP 


C0MC03 




2011 
2012 










(KTU 


ENABLE 


ROUTINE 




2013 


















2014 


012632 


017737 


012704 


000004 


KTON( 


MOV 


(1$,0*4 




2015 


012640 


032737 


000001 


177572 




BIT 


(l.atSSRO 


(ALREADY ON 7 


2016 


012646 


001027 








BNE 


2« 


(YES, FORGET IT 


2017 


012650 


112767 


000001 


166426 




MOVB 


tl,KTPRES 


(NO, SET KT PRESENT FLAG 


2019 


012656 


016767 


166346 


166342 




MOV 


HC0RSV,HC0R13 


(RESTORE MEMOBY SIZP 


2019 


012664 


004767 


177124 






JSR 


PC.KTINIT 


(INITIALIZE KTll 


2020 


112670 


01J737 


000001 


177572 




MOV 


f l,e*SSRO 


(TURN IT ON 


2021 


















2022 


















3033 


012676 


104406 


024615 






MSG$i 


KTONH 


("KTll ENABLED" 


3024 


012702 


000411 








BR 


2S 


(CONTINUE 


2035 


012704 


012737 


015246 


000004 


ll( 


MOV 


tBUSERR,D«4 




2026 


012712 


005067 


165060 






CLR 


PSH 




2027 


012716 


104406 


023776 






Hsa$, 


NOKT 


("NO KTll" 


2028 


012722 


000167 


175720 






JMP 


COMCON 


(CONTINUE 


2029 


012726 


012737 


015246 


000004 


3*{ 


MOV 


#BUSEPR,9t4 




2030 


012734 


005067 


165036 






CLR 


PSW 




2031 


012740 


0001S7 


175712 






JMP 


C0MC03 
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3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 



013744 lOSOfi? 166344 
013750 004767 003764 
013754 000167 175676 



012740 
015766 
012774 

oiiooo 



113767 
016767 
104406 
000167 



000377 
166326 
034555 
175652 



MACYll 37(1006) 23«APR-77 OOill PACK 69 



iTHIS ROUTIKE ENABLES WRITE BUFfER SOT^TK 



SEO 0071 



ftOTO»I CtBB 
JSR 
JHP 



POtL 

PC.RQTCHK 
CQMC03 



»CLE*R ROTATION LOCK FLAG 
•GO DO "EHABLED" MESSAGE 
fCOMTINUE 



jTHlS ROUTINE DISABLES WRITE BUFFER ROTATION 



166336 ROTOFFI MOVB #377,R0TL 
166333 MOV ROTNUM,ROTCNT 

MSGtfROTOIS 

JMP C0HC03 



I SET THE ROTATION LOCK FUG 
fLOAD THE ROTATION COUNTER 
»"«BUF ROTATION DISABLED" 
jCONTIHUE 
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3045 










iTHIS 


ROUTINE 


IS NECESSARY TO 


SUPPORT THE PON COMMAND 


2046 


















2047 


013004 


004767 


000004 




PONj 


JSR 


PC, PONS 


J GO TURN OH PARITY 


2048 


013010 


000167 


175642 






JHP 


C0MC03 


:C0NT1NUE 


2049 


















2050 


















2051 


















2052 










iTHIS 


ROUTINE 


WILL TURN ON PARITY IF AVAILABLE 


2053 


















2054 


01301 4 


132767 


000001 


166316 


PONNt 


BITB 


»BITO,PPRFS 


fANY PARITY TO TURN ON 7 


2055 


013022 


001405 








BEO 


1$ 


»N0, SAY SO AND RETURN 


2056 


013024 


004767 


177202 






JSR 


PC.PAENBL 


jYES, GO TURN IT ON 


2057 


013030 


104406 


023756 






MSGt, 


PENABL 


("PARITY ENABLED" 


aosA 


et>ft34 


0fl04«2 








PR 


21 


1 RKTURN 


3059 


01 3036 


104406 


024021 




m 


MSG8, 


NOPAP 


i'Nf! PARITY" 


2060 


013042 


000207 






381 


PTS 


PC 


J RETURN 


2061 


















2062 


















2063 










jTHlS 


ROUTINE 


DISABLES PARITY 


IF PRESENT 


2064 


















2065 


013044 


132767 


000001 


166266 


porn 


BITB 


»PIT0»PPPCS 


lANY PARITY TO TURN OFF T 


2066 


013052 


001003 








BNE 


1» 


jYES, CONTINUE 


3067 


013054 


104406 


024021 






MSG(> 


NOPAR 


J"H0 PARITY" 


2068 


013060 


000421 








RR 


41 


iPETURN 


2069 


013062 


132767 


OOOOOJ 


166250 


111 


BITB 


»BIT1,PPRES 


;IS IT AN 11/60 7 ••«*••*•«••*•**••••«**•««»«« 


2070 


013070 


001403 








BEO 


2S 


I NO, CONTINUE 


2071 


013072 


042777 


000001 


166376 




arc 


»1 ,«CONTRL 


(DISABLE CACHE PARITY TRAPS «••*•««**••••• 


2072 
2073 


01 3100 


01 2700 


001430 




211 


MOV 


•PAPTABfRO 


jGET ADDRESS OF PARITY ADDRESSES 


2074 


013104 


005001 








CLR 


Rl 


»CLEAR THE COUNTER 


2075 


















2076 


013106 


005030 






3Sj 


CIR 


?CRQ)+ 


jCLEAR THE PARITY REGISTER 


2077 


013110 


005201 








INC 


Rl 


(STEP THE REGISTER COUNTER 


2078 


013112 


126701 


166223 






CMPS 


CNT1,R1 


(ALL PARITY REGISTERS CLEARED 7 


2079 


013116 


003373 








BGT 


3$ 


|N0, CLEAR THE NEXT ONE 


2080 


















2091 


013120 


104406 


024034 






NSG«> 


PAOFF 


J "PARITY OFF" 


2082 


013134 


000167 


175526 




4(1 


JMP 


C0MC03 


(CONTINUE 


3083 
2084 










iTHIS 


ROUTINE 


TURNS ON THE CACHE. SUPPORTS THE CON COMMAND, 


2085 


















2086 


013130 


010046 






CON! 


HOV 


RO,-tSP) 


ISAVE RO 


2087 


013132 


012700 


000200 






MOV 


11200, RO 


1 SWEEP CACHE CLEAN FIRST 


2088 


013136 


076600 








MED 






2089 


013140 


000353 








352 






2090 


013142 


013600 








MOV 


(SP)*,RO 


(RESTORE RO 


2091 


013144 


042767 


000014 


166326 




BIC 


I14,K0NTRL 


(CLEAR OUT THE FORCE MISS BITS 


2092 


013152 


016777 


166333 


166316 




HOV 


K0NTRL,»C0NTRL 


(DO IT 


2093 


013160 


104406 


033643 






MSG(, 


CONN 


("CACHE ENABLED" 


2094 


013164 


000167 


175466 






JMP 


C0HC03 


(CONTINUE 


2095 


















2096 


















2097 










iTHIS 


ROUTINE 


TURNS OFF THE CACHE, SUPPORTS THE COPP COMMAND, 


2098 


















2099 


013170 


052767 


000014 


166302 


COFFI 


BIS 


f UfKONTRL 


(SET THE FORCE MISS BITS 


2100 


013176 


016777 


166376 


166372 




MOV 


KONTRL,»CONTRL 


(DO IT 
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2101 013204 104406 023662 M5G(,C0rrF {"CACHE DISABLED' 

2102 013210 000167 175442 JMP C0MC03 
2103 
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2104 iMODIFY ROUTINE. 

2105 iGETS ADDRESS AND PRINTS ADDR CONTENTS. 
5106 lUSEB CAN INPUT NEW NUMBER OR CB. 

2107 iCP MEANS HE JUST WANTS TO EXAMINE, 

2108 



2109 


0132)4 


1 )2767 


177777 


166102 FILLt 


HOVR 


»-) ,FH,LID 


SSET FIIjL INDICATOR. 


2110 


013222 






MODI 








3111 


013222 


004767 


000434 


SSI 


JSR 


PCGETNAM 


;GET NAME AND MOOI'LF ADOR, 


2112 


013226 


000401 






BR 


*t 


;N0 NAME, 


21)3 


013230 


000440 






BR 


3S 


sINVAliID OR NEX NAME. 


2114 


013232 


004767 


000212 


4ti 


JSR 


PC.GETADB 


)GET addbe:ss. 


2115 


013236 


000430 






BP 


6S 


! INVALID ADDR OR MO ADDP. 


2116 


013240 


016704 


165576 




MDV 


ADDRL0,B4 


l"OVE ADDP TO R4. 


2117 


013244 


066704 


165570 




ADD 


M0DPTB,B4 


;ADD MODULE ADDR TO ADDR. 


211fl 


013250 


0) 0446 




ISl 


MOV 


P4,-(SP) 


jTYPE ADDP. 


2119 


013252 


004767 


000150 




JSR 


PCITOA 


1 


2130 


013256 


011446 




7*1 


MOV 


CP4),-(SP) 


;GET CONTENTS OF ADDP. 


2121 


0)3260 


004767 


000142 




JSR 


PCITOA 


iPRINT IT OUT. 


2122 


013264 


004767 


175376 




JSR 


PCSINPUT 


;GET NEW CONTENTS. 


2123 


013270 


004767 


000232 




JSR 


PC.GETNUM 


jCONVERT INPUT TO BTNABY. 


2124 


013274 


000416 






BR 


3S 


ITNVALID DATA (NOT » WU"BEP) 


2125 


013276 


005767 


165560 




TST 


YES 


•NU'^BFR? 


3126 


013302 


001401 






BEQ 


2S 


;BR IF NOT, 


2137 


0) 3304 


010114 






MDV 


PI , (B4) 


iSTOPE NEW VALUE, 


2128 


013306 


122702 


000012 


2(1 


CMPE 


tl2»P2 


iLINE FEED? 


3129 


013312 


001007 






BNE 


3t 


;N0, DONE. 


2130 


013314 


005724 






TST 


(B4) + 


(POINT TO NEXT LOCATION, 


3131 


013316 


000754 






BB 


1$ 


J REPEAT FOR NEXT LDC. 


3132 


PJ3320 


012704 


001306 


6tl 


MOV 


»FILCNT,P4 


jGET FILCNT ADDP, 


3133 


013324 


105767 


165774 




TSTB 


FILLID 


!lN FILL MORE? 


2134 


013330 


001352 






BNE 


7S 


iBR IF YES. 


2135 


013332 


000167 


175310 


3$l 


JMP 


COMCON 


SDONE. 
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31 36 










1 Bl N ARY 


TO ASCII TYPE 


ROUTINE, 




2137 




















31 3fl 


01 3336 


016646 






I TO AX 1 


HOV 


2CSP3i 


,-tSP) 


JliOAD EA BITS 


31 39 


01 3342 


016666 


AA AA 


000004 






2(SP1. 


.4CSP) 




3140 


013350 


016666 


000006 


000002 




MOV 


6CSPI1 


r3CSP) 




3141 


011156 


004867 


000570 






JSR 


RSjOACSVX 




3142 


013363 


025675 








H0LD6 






»AND PUT IT HERE 


2143 


013364 


104406 


025675 






MSGS. 


H01D6 




I TYPE OUT THE VALUE 


2144 


013370 


00043! 








BP 


ITOUT 






3145 




















3146 


013372 


016646 


000002 




1T0A8I 


HOV 


2CSP)i 


i-(SP) 


jLOAD UPPER BITS 


2147 


013376 


016666 


000002 


000004 




Mnv 


2CSP)i 


p4(SP) 


sAND LOWER BITS 


214S 


013404 


016666 


000006 


000002 




MOV 


6(SP)i 


-2(SP) 


J AND ADJUST THE STACK 
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2149 


013412 


004567 


000542 




JSR 


R5,0ACNV8 


;CONVERT 8 OCTAL NUKBEBS TO 


2150 


01 3416 


025706 






HOLDS 




}AND PUT THRM HERE 


2151 


01 3420 


104406 


025706 




Msa$, 


HDLD8 


(TYPE OUT THE OCTAL VALUE 


2152 


013424 


000407 






BP 


ITOUT 


J GO TYPE IT OUT 


2153 
















2154 
















2155 


013426 


016646 


000002 


ITOAI 


Mnv 


2tSP)r-(SP) 




2156 


013432 


004567 


000502 




JSR 


R5,0ACNV 


jCONVERT NUMBER TP ASCII, 


2157 


013436 


025675 






H0LD6 






2158 


(113440 


104406 


025675 




MSGS, 


H0LD6 


jTYPE OCTAL VALUE. 


2159 


013444 


012616 




I TOUT! 


MOV 


(SP)+,(SP) 




2160 


013446 


000207 






PTS 


PC 


jEXIT, 
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SEO 0077 



2161 








iTHIS ROUTINE 


GETS THE ADDRESS 


9162 








GGTADRl JSR 




2163 


013450 


004767 


000042 


PCiGETHUM 


2164 


013454 


000414 




BR 


1$ 


216S 


013456 


005767 


165400 


TST 


YES 


2166 


013462 


001411 




BEQ 


1* 


2167 


013464 


006201 




ASR 


Bl 


2iee 


013466 


103410 




BCS 


ADRERR 


2169 


013470 


OfiOlOl 




ADD 


Rl fRl 


2170 


013472 


010167 


165344 


HOV 


PI , ADDRLO 


2171 


013476 


010367 


165342 


MOV 


R3,A0DRHI 


2172 


013502 


062716 


000002 


ADD 


«2,(SP) 


2173 


013506 


000207 




111 RTS 


PC 


2174 












2175 


013510 


104406 


023344 


ADRERRl MSGtf 


INVADR 


2176 


013514 


000207 




RTS 


PC 



(GET NUMBER 

; INVALID DATA RETURN, 

{NUMBER? 

jBR IF HOT. 

:GOOD ADDRESS? 

jNOGOOD, IT'S ODD 

(RESTORE THE ADR 

» STORE AT ADDRLO 

(AND ANY HIGH ORDER BITS IN ADDRHI 

SSET UP GOOD EXIT. 

»DOME 

»TyPE INVALID ADDR nR DATA. 
»EXIT, 



OABM OEC/Xll STANDARD MONITOR MACYll 27(1006) 23-APR-77 OOlll PAGE 76 
DXQABM.Pll 21-APR-77 12142 



2177 








|OET NUMBER FROM KEYBOARD 


BUFFER, AND PETURU THF L0>^ ORDER "^ITS 


217B 








lIN Rl AND THE 


HIGH ORDER 


BITS IN R3. 


2179 








•ROUTINE ADDS 2 


TO THE RETURN PC IF SUCCESSFUL. 


31B0 
2181 


013516 


016700 


165314 


GETNUMi MOV 


KRPTR,RO 


(GET BUFFER PDIi^TFR, 


3182 


013522 


005001 




3ti CLR 


Rl 


:DATA 


2163 


013534 


005003 




CLR 


R3 




2184 


013526 


005067 


165330 


CLR 


YES 


SFLAG 


2185 


013532 


113003 




111 MOVB 


(P0)+»R3 


J GET A BYTE 


2186 


013534 


130327 


000040 


CMPB 


R3>i40 


; SPACE? 


2187 


013540 


001770 




BEO 


31 


» YES, IGNORE IT 


2188 


013542 


122702 


000015 


CMPB 


f t5>R3 


»CR7 


2189 


013546 


001425 




BEO 


21 


1 YES, RETURN 


2190 


013550 


120227 


000012 


CMPB 


R2f •12 


»LF? 


2191 


013554 


001422 




BEQ 


21 


JDONE 


2192 


013556 


120227 


000060 


CMPB 


P2,«'0 


SLOW LIMIT 


2193 


013563 


002753 




BLT 


ADRERR 


:T0O LOW, REPORT THF EPROR 


2194 


013564 


130337 


000067 


CMPB 


P2f «'7 


JHIGH LIMIT 


2195 


013570 


003347 




BGT 


ADRERR 


jTOO HIGH, REPORT THE ERROR 


2196 


013572 


006301 




ASL 


PI 


> SHIFT OLD STUFF 


2197 


013574 


006103 




ROL 


P3 




2198 


013576 


006301 




ASL 


Rl 


S3 TIMES LEFT 


2199 


013600 


006103 




ROL 


R3 




2200 


013602 


006301 




ASL 


Rl 


lI.E. HULT. BY OCTAL 10 


2201 


013604 


006103 




ROL 


R3 




2202 


013606 


060201 




ADD 


R2,R1 


lADD NEW TO OLD 


2303 


013610 


162701 


000060 


SUB 


I'OfRl 


iBUT GET RID OF ASCII STUFF 


2204 


013614 


005267 


165242 


INC 


YES 


ISET FLAG 


2205 


013620 


000744 






11 


jMOPE, MORE 


3206 


013632 


010067 


165210 


21 i MOV 


RO.KBPIR 


I SAVE CURRENT BUF POINTER. 


2207 


013636 


062716 


000002 


ADD 


12. (SP} 


jSET UP OK EXIT, 


3308 


013632 


000207 




RTS 


PC 


SEXIT, 
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2209 iTHIS ROUTINE PUTS THE "ODULE NAME INTO kf> kSCU STRING FOR OUTPUT 

22! 



2211 


013634 


010346 




PILIiNHi 


MOV 


R3,-tSP) 


rSAVE R3. 


2212 


013636 


012503 






MOV 


CR5)+tR3 


I STORE ADDR TO 


2213 


013640 


012704 


000005 




MOV 


*5,R4 


IWILL DO 5 TIMES. 


2214 


013644 


112123 




lii 


HQVB 


CRl3+.tR33* 


iHQVE CHAR. 


2215 


013646 


005304 






DEC 


R4 


(DONET 


2216 


013650 


001375 






BNE 


U 


:BR IF NOT. 


2217 


013652 


162701 


OOOOOS 




SUB 


iS.Rl 


J RESTORE Ri, 


221B 


013656 


012603 






MOV 


CSP)+,R3 


» RESTORE R3. 


2219 


013660 


000205 






RIS 


R5 


jEXIT. 



QABM DEC/X11 STANDARD MONITOR MACYll 27(1006) ?3>APR-77 OOtll PAGE 7B 

DXQABM.pii 2)«APR«77 12|42 SEQ OOSO 



2220 








iTHlS 


ROUTINE 


GETS THE MODUliE 


NAME ASSOCIATED WITH THE MOD AND SEL/DE5 COMMANDS 


2221 
2222 


013662 


016700 


165150 


GETNAMi MOV 


KBPTR.RO 




»GET BUFFER POINTER. 


2223 


013666 


005067 


165170 




CIR 


YES 




{CLEAR SUCCESS INDICATOR. 


2224 


013672 


005067 


165142 




CLP 


MODPTR 




lIF Of ABS ADDR. 


2225 


013676 


012702 


000005 




MOV 


#5,R2 




;MILL DO 5 TIMES. 


2226 


013702 


012701 


025574 




MOV 


#»M0DNM+1 


Bl 


;HILL STORE KYBD NAME IN TMPNAH, 


2227 


013706 


112721 


000040 


l«l 


MOVB 


#4o»(Rl)+ 




>BUT CLEAR IT TO SPACES FIRST. 


3228 


013712 


005302 






DEC 


R2 




iDDNE? 


3229 


013714 


001374 






BNE 


IS 




JBR IF NOT. 


3230 


013716 


P12701 


025574 




MOV 


•AMODNN+l 


PI 


J RELOAD TEMP ADDR, 


2331 


013722 


111002 




211 


MOVB 


(P0).R2 




jGET CHAP FROM KBUF AREA. 


2232 


013724 


122702 


000015 




CMPB 


«15«R2 




jCR? 


?2i3 


«1*790 


00t449 






F>EO 


6* 




fBR IF YES, 


2234 


013732 


122702 


000012 




CMPB 


*12iR2 




tLft treat as cr. 


2235 


013736 


001437 






RCQ 


6« 




*BP IF YES 


3236 


013740 


122702 


000040 




CMPB 


t40#R2 




IsPACET DISPEGARD LEADING ONES, 


2237 


013744 


001430 






BEO 


sa 




>rr if yes. 


2238 


013746 


120227 


000101 




CMPB 


P2,t'A 




|A OR HIGHER? 


3239 


013752 


002403 






BLT 


31 




tBR IF LESS. (COULD BE A NUMBER). 


2240 


013754 


120227 


000132 




CMPB 


R2,»'Z 




tZ OR LE5S7 


3241 


013760 


003411 






BLE 


4t 




iBR IF Z OP LESS, 


2242 


013762 


120227 


000060 


3$i 


CMPB 


R2.«'0 




(0 OR HICHERT 


2243 


01 3766 


002427 






BLT 


7» 




jBR IF LESS, YOU LOOSEI 


2244 


013770 


120227 


000071 




CMPB 


R2,»'9 




t9 OR LESS? 


3245 


013774 


003024 






BGT 


7» 




;BR IF GREATER. YOU LOOSEI. 


2246 


013776 


005767 


165060 




T8T 


YES 




;ANY PREVIOUS CHARS? 


2247 


014002 


001426 






BEQ 


8* 




jBR IF NOT. NOT LEADING NUMERICS ALLOWED! . 


2248 


014004 


026727 


165052 000005 


4«l 


CMP 


YES#I5 




»6TH CHARACTER? 


2249 


014012 


002015 






BGE 


7t 




>IF YESr BRANCH 


2250 


014014 


110221 






MOVB 


R2, (Rn + 




(STORE CHAR. 


2251 


014016 


005267 


165040 




INC 


YES 






2252 


014022 


005200 




4111 


INC 


flO 




jPOINT TO NEXT CHAR. 


2253 


014024 


000736 






BR 


2t 




|D0 IT AGAINI 


2254 


014026 


005767 


165030 


511 


TST 


YES 




lANY CHARS? 


2255 


















2256 


















2257 


















2258 


014032 


001773 






BEQ 


411 




jBR IF NOT. 


2259 


014034 


000416 






BP 


9t 






2260 


















2261 


014036 


005767 


165020 


6lt 


TST 


YES 




lANY CHARS? 


2262 


014042 


001013 






BNE 


9t 




»BR IF YES. 


2263 


014044 


000405 






BR 


Bt 




(NO NAME, 


2264 


014046 


104406 


023370 


711 


MSGIi 


INVNAM 




iTYPE INVALID OR NEX (NON«EXISTENT) MESSAGE. 


2265 


014052 


062716 


000002 




ADD 


f2,(SP) 




(SET UP INVALID NAME EXIT. 


2266 


014056 


000207 






RTS 


PC 




lEXtT. 


2267 


















2268 


















2269 


014060 


005067 


164776 


811 


CLR 


YES 






2270 


014064 


010067 


164746 




MOV 


PO.KBPTR 




'save current buf pointer. 


2271 


014070 


000207 






RTS 


PC 




(EXIT, 


2272 


014072 


012702 


026522 


911 


MOV 


*MbDQ,R2 




1 module table ADDR TO R2, 


2273 


014076 


012203 




lOlt 


NOV 


(R2)+»R3 




(GET MODULE ADDR. 


2274 


014100 


001762 






BEQ 


71 




(INVALID NAME, NO HODULEIl 


2275 


014102 


012701 


025574 




MOV 


tAMODNM^l 


Rl 





QABM 1 


BEC/Xll STUNOIkpD 




MACyll 27(1006) 


33"APR 


•77 OOtll PAGE 


79 


DXQABM.Pll 21 


•APP"77 


13143 










3376 


014106 


012704 


000005 




MOV 


15 1 P4 


}WIIiL MATCH 5 CHAPS 


2377 


014112 


123133 




1191 


CMPB 




(CHAR MATCH? 


3278 


014114 


001 370 








101 


jBR IF NOT, 


2279 


014116 


005304 






DEC 


P4 


J DONG? 


2280 


014120 


001374 






BNE 


lis 


jBR IF" NOT, 


2281 


014122 


014267 


164712 




MOV 


-tB3)iM0DPTR 


J MODULE ADDB TO MODPTP, 


22S2 


014126 


010067 


164704 




MOV 


RO.KBPTP 


(SAVE CURRENT BIIF PPINTER. 


2283 


014132 


063716 


000004 




ADO 


#4,CSP) 


jSET UP SUCCESS EXIT, 


2284 


014136 


000307 






RTS 


PC 


(EXIT, 



SEO 0081 
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3285 










jOCTAL 


TO ASCII 


CONVERT ROUTINE. 


2286 










iCONVERTS ARGUMENT ON STACK 


TO ASCII, STOPES STPI'IG STARTING AT ADDRESS 


2287 










{GIVEN 


FOLLOWING THE CALL 




2288 










» EXTENDED ENTRY 


REQUIRES ADDITIONAL RRGU^«FNT ON STACK- AFTFR 


3289 










{PUSHING LOWER 


16 BITS ONTO 


STACK, PUSH EA PITS (SHIFTED TO POS 4,5) 


3290 


















2391 


014140 


005067 


164746 




OACNVt 


CLP 


OASCEA 


jCLEAP OUT UPPER BITS -- NOT USED 


2392 


014144 


105067 


165J72 






CLPB 


ATE 


SCLPAP 8 CHARACTER FLAG 


2293 


014150 


000412 








BR 


CONVPT 


{CONTINUE 


3294 


















2295 


014152 


105067 


165164 




OACNVXl 


CLRB 


ATE 


{CLFA" 8 CHARACTER FLAG 


2296 


014156 


000403 








BR 


HOP 


•CONTINUE 


2297 


















3298 


014160 


112767 


000200 


165154 


OACNVaj 


MOVB 


«BIT7, ATE 


{SFT 8 CHARACTER FLAG 


2299 


















2300 


014166 


016667 


000003 


164716 


HOPI 


MOV 


2(SP)»0ASCEA 




2301 


014174 


012616 






CONVRTi 


MOV 


(SP)+,(5P) 




2303 


014176 


004467 


000536 




JSR 


R4.SAV04 


(SAVE REGS 0-4. 


2303 


014202 


016600 


000014 






MOV 


12.(SP),R0 


(GET OCTAL VALUE. 


2304 


014206 


012501 








MOV 


(R5)+»P1 


(GET OEST AnDR, 


2305 


014210 


012702 


000006 






MOV 


t6,R2 


(SET CONVERT COUNT TO 6. 


2306 


014214 


060201 








ADD 


R2,P1 


(DEVELOP ADDR TO STORE 1ST CHAR, 


2307 


014216 


105767 


165130 






TSTB 


ATE 


(SET UP TO DO 8 CHAOACTERS ? 


2308 


014233 


100002 








BPL 


3» 


;H0, CONTINUE 


2309 


014324 


062701 


000002 






ADO 


«3,B1 


SYES, ADD 2 TP THF ADDRESS 


2310 


014230 


010003 






3«t 


MOV 


R0,P3 


{GET VALUE TO R3, 


2311 


014333 


042703 


177770 






BIC 


1177770. R3 


(ISOLATE LEAST SIGNIFICANT DIGIT, 


2312 


014236 


062703 


000060 






ADD 


160, R3 


(CONVERT TO ASCII. 


3313 


014242 


110341 








MOVB 


R3,-(R1) 


{STORP IT. 


2314 


014244 


042700 


000007 






BIC 


17, RO 


(CLEAR DIGIT JUST CONVERTED, 


3315 


014250 


006000 








BOR 


RO 


(SHIFT IN NEXT DIGIT, 


2316 


014252 


006000 








ROR 


RO 




2317 


014254 


006000 








BOR 


RO 




2318 


014256 


005302 








DEC 


R2 


(PONE 6 DIGITS? 


2319 


014260 


001363 








BNE 


3S 


(BR IF NOT, 


2320 


014262 


105767 


165054 






TSTB 


ATE 


(SET up TO DO 8 CHARACTERS ? 


3331 


014266 


100410 








BMI 


4t 


{YES, DO IT 


2322 


014270 


016702 


164616 






HOV 


OASCEA, B3 




2323 


014274 


006303 








A5R 


B2 




2324 


014276 


006202 








ASR 


R2 




2325 


014300 


006202 








ASB 


R2 




2336 


014302 


060203 








ADD 


R2,B3 




2327 


014304 


110311 








MOVB 


R3, (Rl) 




2328 


014306 


000425 








BP 


5( 


(GO FINISH UP 


2329 


















2330 


014310 


132767 


000001 


165024 


4(t 


BITB 


tBiTO.ATE 


{ALL DONE ? 


233! 


014316 


001021 








BNE 


5* 


(YES, OFT OUT 


2332 


014320 


016700 


164566 






HOV 


OASCEA, RO 


(NO, LOAD UPPER NUMBERS TO BE CONVERTED 


2333 


014334 


006300 








ASL 


RO 


(LINE UP BITS BELONGING TO LOWER NUMBER 


2334 


014326 


042700 


177770 






BIC 


#177770, RO 


{GIT RID OF ALL OTHERS 


233S 


014332 


060003 








ADD 


R0,R3 


(ADD IT IN TO COMPLETE THE NUMBER 


2336 


014334 


110311 








MOVB 


R3.(R1) 


(STORE IT 


2337 


014336 


016700 


164550 






MOV 


OASCEA, BO 


(LOAD UPPER BITS AGAIN 


2338 


014342 


006200 








ASR 


BO 


(GIT RID OF THE 2 BITS 


2339 


014344 


006200 








ASR 


BO 


(JUST TAKEN CARE OF 


2340 


014346 


012702 


000002 






MOV 


• 2,P2 


{SET UP TO DO THE LAST 2 CHARACTERS 
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2341 014152 

2342 014360 
"343 
2344 
2345 
2346 



152767 
000723 



014362 004767 
014366 012S16 
014370 000205 



000001 164762 



JSR 
MOV 
RTS 



tBITO.ATE 
3lt 



PC,RST04 
CSP5+,(SP) 



iSET 'ALL DONE' FLAG 

jGO DO THE LAST 2 CHARACTERS 



IRESTORE REGS, THRU 4 
I 

J RETURN 
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2347 








jBINARV 


TO DECIMAL ASCII CONVERT ROUTINE. 


2348 








iCONVEPTS ARGUMENT ON STACK 


TO DECIMAL ASCII. STORES IT 


2349 








jSTARTING AT 


ADDRESS GIVEN AFTER THE CALL. 


2350 








I REMOVES ARGUMENT FROM STACK 


BEFORE RETURNING 


2351 
















2352 


014372 


0^4467 


000342 


BDCNVl 


JSR 


P4,SAV04 


SSAVE REGS 0-4. 


2353 


014176 


016601 


000014 




MOV 


12.CSP),R1 


•GET BIN VALUE. 


2354 


014402 


012700 


026513 




MOV 


#OEeVAL,P0 


;GET ADDR OF DECVAL STRING, 


2355 


014406 


012702 


014472 




MOV 


tTENPWR,B2 


JADDR OF TENPWR TO B2. 


2356 


014412 


112703 


000005 




MOV 


t5,R3 


;SET UP TO DO 5 CONVERSIONS. 


2357 


014416 


005004 




l«l 


CLR 


R4 


jCLEAR RESULT. 


2358 


014420 


161201 




2Sl 


SUB 


(R2)»R1 


:SUBTPACT TEN POWER, 


2159 


014422 


103402 






BCS 


3$ 


|BR IF UNSUCCESSFUL. 


2360 


01 4424 


005204 






INC 


R4 


;ADD 1 TO RESULT. 


7J«t 




000774 






B" 


2S 


rRO r- iGAl'v. 


2362 


01 4430 


062201 




39! 


ADD 


(R?!+<P1 


jRESTOR'^ SUBTSACTr.C V 


2363 


014432 


062704 


000060 




ADD 


«60.R4 


jMAKE IT ASCII, 


2364 


014436 


110420 






MOVB 


R4, (P0) + 


(SAVE IT, 


2365 


014440 


005303 






DEC 


R3 


»DONE 57 


2366 


01 4442 


001 165 






BMC 


It 


IBR IF NOT. 


2367 


014444 


012501 






MOV 


(R;14',R1 


• GET FTNfifj «TORF ?.DDR 


2369 


01 4446 


012702 


000005 




MOV 


«5,R2 


iGET DIGIT COUNT DESIRED, 


2369 


014452 


060201 






ADD 


R2,R1 


SCOMPUTE ADDR OF 1ST DIGIT, 


2370 


014454 


1)4041 




4SI 


HOVB 


-(R0)»-(R1 J 


JTRANSFER CHAR, 


2371 


01 4456 


005302 






DEC 


R2 


jDONE? 


2372 


014460 


001375 






BNE 


4S 


>BR IF NOT, 


2373 


014462 


004767 


000264 




JSR 


PC,RST04 


ZRESTORE REGS 0-4, 


2374 


014466 


012616 






MOV 


CSPI*, (SP5 




2375 


014470 


000205 






RTS 


R5 


JEXIT. 

.> i 


2376 


014472 


023420 


001750 000144 


TENPWRt 


lOOOO 


.>1000.>100,,10 


2377 


014500 


000012 


000001 
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SEQ 008S 



3378 






3379 






3380 


014504 


043766 


3381 


014512 


000003 


3383 






3383 






3384 






338S 






3386 






3387 






3388 






3389 






3390 


014514 


004467 


3391 


014530 


016700 


3392 


014534 


016701 


3393 


014530 


013703 


3394 


014534 


006000 


3395 


014536 


006001 


3396 


014540 


103410 


3397 






3398 


014543 


043700 


3399 


014546 


032700 


3400 


014552 


001413 


3401 


014554 


052700 


3402 


014560 


000407 


3403 






2404 


014562 


052700 


340S 


014566 


032700 


3406 


014572 


001402 


3407 


014574 


043700 


3408 






2409 


014600 


005303 


3410 


014602 


001354 


2411 


014604 


010067 


3412 


014610 


010167 


3413 


014614 


004767 


2414 


014630 


000003 



(RETURN TO KERNEL MODE 



170000 000003 RTTK.I 



000330 
164456 
164450 

000030 



010000 
002000 



010000 
002000 



164372 
164364 
000133 



BIC 
PTI 



(170000r2CSP} 



I ROUTINE TO CALC NEXT RANDOM NUMBER, USES A 29 BIT SHIFT REGISTER 

» ALGORITHM, EXCLUSIVELY OR-ING THE 28TH AND 1ST(L0W ORDER) BITS 

I INTO THE 29TH BIT AS IT SHIFTS RIGHT. SHIFTS 16 TIMES EACH TIME 

I ITS CALLED. MODULES DO A RAND CALL THEN JUST REFITRENCE RANNUM 

I WHICH IS DEFINED AS GLOBAL IN DDXCOM 
I 

RAND. I 



JSR 


R4,SAV04 


I SAVE THE REGISTERS 


HOV 


RANHRK.RO 


>GET UPPER BITS 


MOV 


RANNUM, PI 


jGET LOWER ORDER 16 BITS 


HOV 


*16.,R2 


» SHIFT 16 TIMES 


ROR 


RO 


» SHIFT RO INTO CARRY 


ROR 


Rl 


jSHIFT CARRY INTO R) , Rl INTO CARRY 


BCS 


It 


1 FIRST HALF OF EX-OP PROCESS 


BIC 


«10000,RO 


{ASSUME OLD BIT 28 WAS ALSO CLEAR 


BIT 


*2000,PO 


;CHECK THAT ASSUMPTION 


BEQ 


2t 


JBP IF BIGHT, ELSE 


BIS 


tlOOOOrRO 


IPUT BIT IN 


BR 


7t 


JGO SHIFT AGAIN 


BIS 


»10000,P0 


J ASSUME OLD BIT 28 WASN'T ALSO SET 


BIT 


f2000,R0 


;CHECK THAT ASSUMPTION 


BEQ 


7S 


:BR IF RIGHT 


BIC 


«ioooo,Re 


lELSE 2 I'S ■ A ZERn BIT 


DEC 


R2 


SDONE 16 TIMES? 


BNE 


RLOOP 


jBR IF NO 


MOV 


RO.PANWPK 


J SAVE CnPRENT VALUES 


MOV 


Rl jBANNUM 




JSR 


PC,RST04 


iBEiTORE REG'S 


RTI 




jPFTURH FROM TRAP C»LL 
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XOABM.PIl 


21-APR-77 


13|42 








SET 


2415 








1 SUBROUTINE 


TO 


GET PAGE ADDRESS 


FIELD VALUE (THP 12 BITS OF ADDRESS) 


2416 








fCALL VIA) 








2417 








1 JSR 


R5, 


T0P12S 




3418 








1 ADDRESS 


OF TABLE CONTAINING LOiJEB 16 BITS, TOP 7 PITS (SHIFTED), 


3419 








t AND 


SLOT FOP RETURNED VI 


SLUE OF ADDRESS 


3430 
















2421 


0)4623 


010046 




T0P12Si HOV 




RO,-(SP) 


jSAVE THE OLD VALUE OF RO 


2422 


014634 


012500 




MOV 




(P5)+,R0 


sGET THE ADDRESS OF THE TABLE-PUT IT IN RO 


3433 


014626 


012046 




MOV 




(RO)+,-(SP) 


S FETCH THE ADHPESS TO BE ACTED OH TO THE STACK 


2424 


014630 


00«216 




ASP 




(SP) 


lELIMINATF THE SIX LOW ORDER BITS. THIS 0«iE DROPS BITO 


2435 


014632 


006316 




ASP 




(SP) 


jTHIS ROTATION DROPS BITl 


3426 


014*34 


006216 




ASP 




(SP) 


jTHlS ROTATION DROPS BIT2 


3437 


014636 


006216 




ASR 




(SP) 


JTHIS ROTATION DROPS BIT3 


3438 


014640 


006216 




ASR 




(SP) 


(THIS ROTATION DROPS BIT 4 


3439 


014642 


006216 




ASP 




(SP) 


(AND THIS ROTATION DROPS BITS 


3430 


014644 


042716 


176000 


BIC 




#176000, (SP) 


(ISOLATE THE 12 HIGH ORDER BITS IN THE LOWER 


3431 


014650 


011660 


000002 


MOV 




(SP),2(R0) 


(SAVE THE 12 HIGH ORDER BITS IN THE TABLE'S 3PD ENTBY 


3432 


014654 


012016 




MOV 




(R0)+,(SP) 


(FETCH THE EXTENDED ADDRESS BITS FROM THE 2^0 E'JTPy 


3433 


014656 


000316 




SHAB 


(SP) 


(MOVE THE BITS TO BIT POSITIONS 6+7. FIRST. TO 8+9, 


3434 


014660 


006216 




ASR 




(SP) 


(THEN MOVE THEM TO 7 + 9 


3435 


014662 


006216 




ASR 




(SP) 


(FINALLY ROTATE THEM TO 6 + 7 


3436 


014664 


052610 




BIS 




(SP)+, (RO) 


(ADD THE EXTENDED ADDRESS BITS TO THE 3KD EMTRY 


2437 


014666 


012600 




HOV 




(SP)+,RO 


(RESTORE THE OLD VALUE OF RO 


3438 


014670 


00030! 




PTS 




R5 


(RETURN TO THF CALLING PROCEDURE 



QABM DEC/XU STANDARD MONITOR 
OXQABM.Pii 31-APR-T7 12143 



HACYH 



27Ct006} 23>APR«77 OOiU PACE S5 



2439 IROUTINE TO GET THE 18 BIT PA TPOM THE 12 BIT PAF 

titn iCALL VIA 

i44t i JSP RS.TOISS 

3442 I ADDRESS OF 12 BITS 

244J I DEST ADDRESS OF liOK 16 BITS 

2444 I DEST ADDRESS OF SHIFTED EA BITS 



«"3 
2446 


014672 


010046 


TOl 8Sf 




Hi'*tSP3 


244? 


014674 


010146 




MOy 






014676 


OuaOO 1 




CIiR 


Rl 


2449 


014700 


013546 




MOV 


f CR5)+»-CSP) 


3450 


014703 


013700 000006 




MOV 


«6,R0 


3451 


014706 


006316 


iti 


ASL 


(SP) 


24S2 


014710 


006101 




ROL 


HI 


3453 


014712 


005300 




DEC 


SO 


3494 


014714 


001374 




8NE 


1« 


34S5 


014716 


006301 




ASL 


Rl 


34S6 


014730 


006301 




ASL 


Rl 


3457 


014722 


006301 




ASIi 


PI 


3458 


014734 


006301 




ASL 


Rl 


3459 


014726 


013635 




MOV 


tSP3 + .(iCP51 + 


34SQ 


014730 


010135 




MOV 


R1,»(R5}+ 


3461 


014732 


012601 




MOV 


(SP)+«R1 


3463 


014734 


012600 




MOV 


(SP)+»RO 


3463 


014736 


000205 









2464 
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3465 






jSAVE REGS 0-4 


SUBROUTINE 


3466 










2467 


014740 


010346 


5AV04I MOV 


R3,-CSP) 


3468 


014742 


010246 


MOV 


R2,-tSP) 


3469 


014744 


010146 


MOV 


R1,-(SP) 


3470 


014746 


010046 


MOV 


RO,-(SP) 


3471 


014750 


010407 


MOV 


R4,PC 


3472 










2473 






(RESTORE PEGS 


•4 SUBROUT 


2474 








2475 


014752 


012604 


RST04I MOV 


CSP)+,R4 


2476 


014754 


012600 


MOV 


tSPU.PO 


2477 


014756 


012601 


MOV 


CSP)+,R1 


3478 


nt4760 


01»6«3 


MOV 


f»B?*rP-2 


3479 


014762 


012603 


MOV 


fSP)+,P3 


2480 


014764 


000204 


PTS 


P4 



I SAVE R3 
jSAVE R3 
jSAVE Rl 
I SAVE PO 

jR4 IS ALREADY SAVED 



J RETURN ADDRESS 
fPESTORE RO 
»R1 

J RESTORE R4 AND RETURN 



i*BH DBC/Xtl STANDARD MONITOR 
DXOABH.Pll JS-APR-T-* 12142 



MACYll 



n008) 23-APB-77 OOjll PAGE 87 



SES 00S9 



24B1 










iCLEAR 


VARIABLES 


. AND OUEUESr A1 


2402 














•ibOUEjPO 


2483 


014766 


01 2700 


001006 




ClRQUSi 


MOV 


2484 


014772 


012701 


00015* 






MOV 


»TKS'I0QUE,R1 


2485 


014776 


105020 






](i 


CLPS 


(P0) + 


2486 


015000 


005301 








DEC 


PI 


3487 


015002 


001375 








BNE 


IS 


2488 


015004 


012700 


027253 






MOV 


lIOQfRO 


3489 


015010 


010067 


164060 






MOV 


RP.IOQl 


3490 


015014 


010067 


164056 






MOV 


RO. I0Q2 


3491 


015020 


012767 


030072 


164052 




HOV 


#TYPEQ,TYPQ1 


2492 


015026 


012767 


030072 


164046 




MOV 


#TYPEQ,TyPQ2 


3493 


015034 


012701 


001750 






MOV 


»lbQ!i+TYPQL»Rl 


3494 


015040 


105020 






2ti 


CLRB 


CRO) + 


3495 


015042 


005301 








DEC 


Rl 


3496 


015044 


001375 








BNE 


23 


2497 


015046 


000207 








RTS 


PC 



ICLEAR VARIABLES. 



T INITIALIZE QUEUE POINTERS 



»SET UP TO CLEAR QUEUES, 



jDONE? 

jBP IF NOT. 
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3498 










(LOAD TRAPCATCHER IN VECTOR AREA 






2499 










CLRVECi 












3500 


015050 


013746 


000200 




MOV 


9»200,-(SP) 








3501 


015054 


013746 


000202 






MOV 


»i202.-CSP) 








3502 


015060 


012700 


000072 






MOV 


»72fR0 


jFILL VECTOR AREA 


WITH 


t + 2 


3503 


015064 


012701 


000070 






MOV 


»7o,Rl 


JAND HALT. 






2504 


015070 


010021 






ISi 


MOV 


RO, (Rl)+ 








2505 


015072 


005021 








CLR 


tRn + 








2506 


015074 


010100 








HOV 


Rl.PO 








2507 


015076 


005720 








TST 


(R0) + 








2508 


015100 


020027 


001002 






CMP 


R0,«1002 


iFILLED UP? 






2509 


015104 


001371 








BNE 


IS 


|BP IF NOT. 






2510 


015106 


012767 


015672 


163000 




MOV 


#PARERR,PARVCT 


}BESTORE PARITY VECTOR 




2511 


015114 


012767 


000340 


162774 




MOV 


#PRTY7,PAPVCT+2 


jAND THE PRIORTY 






2512 


015122 


012637 


000202 






HOV 


(SP)+,9»202 








2513 


015126 


012637 


000200 






MOV 


CSP)+,a#200 


(PRESERVE LP VECTOR 




2514 


015132 


000207 








PT5 


PC 


lYES. EXIT. 






3515 






















2516 










(TRAP INTERPRETER ROUTINE, 








3517 










TRPINTi 












3518 


015134 


01 0046 






MOV 


R0,-tSP5 


(PUSH RO. 






3519 


015136 


016600 


000002 






HOV 


2(SP)»R0 


jCET TRAP 


PC. 




3530 


015142 


014000 








MOV 


-CR03 fRO 


jGET TRAP 


CALL. 


3531 


015144 


006300 








ASL 


RO 


1 MULTIPLY BY 2, 






3533 


015146 


062700 


004176 






ADD 


tTRPTAB-TRP2,P0 


;FORM TABLE ADDRESS 




3523 


015152 


020027 


015246 






CMP 


RO,»TRPLIM 


(WITHIN LIMITS? 






2524 


015156 


103002 








BHIS 


IS 


;BR IF NOT. 






3535 


015160 


011000 








HOV 


9R0>R0 


iGET POUTINF ADDRESS 




3526 


015162 


000200 








RTS 


RO 


jGO TO ROUTINE. RFSTORE 


; RO. 


2527 


015164 


104406 


023040 




IS! 


MSGS.INVTRP jERROR 


INVALID TRAP CALL, 


CRASK 


I SYSTEM 


3528 


015170 


104406 


023746 






MSG$,HLT J 'HALT' 








2539 


015174 


000000 








HALT 










3530 




011000 








TRP2«11000 








2531 




000000 






TRPTABt 


TRAPXaO 










3532 


015176 


















3533 


015176 










TRPDEF 


EXITS, EXIT, 








3534 


015176 


005736 








EXIT. 




» POINTER FOR TRAP 


CALL 


EXITS 


3535 


015200 










TRPOEE 


OUESrQUE, 








3536 


015200 


006376 








QUE. 




(POINTER FOR TRAP 


CALL 


QUES 


3537 


015203 










TRPDEF 


ENDPSS.TYPQ, 








3538 


015202 


006232 








TYPO, 




(POINTER FOR TRAP 


CALL 


ENDPSS 


3539 


015204 










TRPDEF 


ENDS, TYPO, 








3540 


015204 


006232 








TYPO. 




(POINTER FOR TRAP 


CSLL 


ENDS 


3541 


015206 










TRPDEF 


ERRORS >TYP02. 








2542 


015206 


006156 








TYPQ2, 




(POINTER FOR TRAP 


CALL 


ERRORS 


3543 


015210 










TRPDEF 


DATERS(TyPQ2, 








3544 


015210 


006156 








TYPQ2. 




(POINTER FOR TRAP 


CSLL 


DATERS 


3545 


015213 










TRPDEF 


HSGSfTYPOl, 








3546 


015212 


006244 








TYPQl. 




(POINTER FOR TRAP 


CALL 


MSGS 


3547 


015214 










TRPDEF 


BRGAKSrLDBRK, 








3548 


015214 


006366 








LDBPK. 




(POINTER FOR TRAP 


CALL 


BREAKS 


3549 


015216 










TRPDEF 


ERRNS>TyP02. 








3550 


015216 


006156 








TyP02. 




(POINTER FOR TRAP 


CALL 


ERRNS 


2551 


015220 










TRPDEF 


MSGNS.TYPQ, 








3553 


015220 


006232 








TYPQ. 




(POINTER FOP TRAP 


CALL 


MSGNS 


3553 


015232 










TRPDEF 


GWBUrS,GWBUF, 
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SEC 0091 



2554 


015222 


021150 


GWBUr, 


2555 


015224 




TRPDEF 


2556 


015224 


021272 


GETPA, 


2557 


015226 




TPPDEr 


2558 


015226 


007636 


CDATA. 


2559 


015230 




TRPDEF 


2560 


015230 


021426 


HAP22. 


2561 


015232 




TRPDEF 


2562 


015232 


006232 


TYPQ. 


2563 


015234 




TRPDEF 


2564 


015234 


007626 


DATCK. 


2565 


015236 




TRPDEF 


2566 


015236 


014514 


RAND, 


2567 


015240 




TRPDEF 


256B 


015240 


006056 


TYPQ3. 


2569 


015242 




TRPDEF 


2570 


015245 


006010 


TyPQ4. 


2571 


015244 




TRPDEF 


2572 


015244 


014504 


RTTK. 


2573 


015246 




TRPLIMl 







jPOINTER 


FOR 


TRAP 


CALL 


GNBUF* 


GETPAS 


•GETPA, 
















(POINTER 


FOP 


TRAP 


CALL 


GETPAI 


CDATA* 


,CDATA. 
















(POINTER 


FOR 


TRAP 


CALL 


CDATA* 


MAP228 


,MAP22. 
















(POINTER 


FOR 


TRAP 


CALL 


MAP22* 


M5GS$, 


TIfPQ. 
















(POINTER 


FOR 


TRAP 


C»LL 


^ses* 


DATCK* 


» DATCK, 
















(POINTER 


FOR 


TRAP 


CALL 


DATCK* 


RANOSf 


RAND. 
















(POINTER 


FOR 


TRAP 


CALL 


RAND* 


DERRXS 


,TYPQ3. 
















[POINTER 


FOR 


TRAP 


CALL 


DERRX* 


*4SGD(f 


TyP04. 
















IPOIKTER 


FOR 


TRAP 


CALL 


HSGDS 


RTTK*, 


RTTK, 
















(POINTER 


FOR 


TRAP 


CALL 


RTTKS 
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2574 








2575 








2576 








2577 








2579 








2579 


015246 


012746 


000004 


2580 


015252 


000413 




2581 


01S254 


042737 


000001 


25B2 


015262 


104406 


024050 


2583 


015266 


104406 


023746 


2584 


015272 


000000 




2585 


015274 


000776 




2586 








25 8 7 








2588 








2589 








2590 


015276 


012746 


000010 


2591 


015302 


000240 




2592 


015304 


010605 




2593 


015306 


012706 


027252 


5594 


01S312 


01 2546 




2595 


015314 


010546 




2596 


015316 


016546 


000002 


2597 


015322 


011546 




2508 


015324 


012706 


027212 


2599 


015330 


004767 


002152 


2600 


015334 


004767 


002774 


2601 


015340 


004767 


171640 


2602 


015344 


105267 


163714 


2603 


015350 


105767 


163751 


2604 


0)5354 


001005 




2605 


015356 


105767 


163722 


2606 


015362 


001402 




2607 


015364 


004767 


004104 


2608 


015370 


012706 


027242 


2609 


015374 


005067 


163460 


2610 


015400 


Iir767 


ooooni 


2611 


015406 


104406 


023601 


2612 


015412 


012705 


013426 


2613 


015416 


004715 




2614 


015420 


004715 




2615 


015422 


004715 




2616 


015424 


004715 




2617 








2618 


015426 


O12706 


027212 


2619 


015432 


132767 


000002 


2620 


015440 


001404 




2621 


015442 


104406 


023420 


2622 


015446 


004767 


000360 


2623 


015452 


104406 


022737 


2624 


015456 


000435 





(BUS ERROR AND RESERVED INSTRUCTION TRAP ROUTINES 

(CHECK MODE BITS OF PSW ON STACK (MAYBE USER IF KTl 1 IN USEJ 

(ORDER OF ARGUMENTSI VIRTUAL PC ON STACK, PSW ON STACK, STACK POINTER 

(AFTER TRAP, VIRTUAL ADDRESS TRAPPED TO 



177572 KTEPR( 



RESINTi 
RESIA! 



163700 



MOV 


»4,-(SP) 


(INDICATE BUS ERROR TRAP. 


BR 


RESIA 




BIC 


*1,A*SSR0 


(TURN OFF KTll 


MSG*, 


pKTFATL 


J 'Kill ABORT - FATAT • 


MSGS, 


,HLT 


( 'HALT* 


HALT 






BR 


.-2 


fKTU ABORT- FATAL "CRROR 






(EXAMINE KTll SSRO TO DETERMINE TYPF OF ABORT, 






(WOEr »Nn f»«<JE RrrrRSNCPO 






(FXawiNE KT11 SSP2 TO DFTFRMINE VTRT'Ul A'/DoESS 






(OF INSTRUCTION WHICH ABORTED 


HOV 


»10,-CSP) 


(INDICATE RESERVED INSTRUCTION TRAP, 


NOP 






MOV 


SP,R5 


(SAVE THE STACK POINTER, 


MOV 


tSPSPECSP 


(PUT INFOBRATION INTO SPECIAL MONITOR STACK 


MOV 


CR5)+.-(SP) 


(PUSH TRAP VECTOR OH STACK 


MOV 


R5,-CSP) 


(OUSH STACK POINTER ON STACK 


MOV 


2CR5),-CSP3 


(PUSH THE PSW OM STACK 


MOV 


(P5)f-C5P) 


(PUSH THE PC ON STACK 


MOV 


#5PB0T,SP 


(RESTORE MONITOR STACK POINTER 


JSR 


PC.SAVLOG 


(GO SAVE 11/60 LOG »•»•♦#♦••«♦♦•»»#♦♦♦»••••♦ 


JSR 


PCCLKOFF 


(TURN OFF CLOCK AND SAVE STATUS 


JSR 


PCjCTRLX 


(CLEAR QUEUES, CLEAN UP, HAP TO BANKS 0+1 


INCB 


SYSCNT 


(COUNT A SYSTEM ERROR 


TSTB 


MOVING 




BNE 


ii 




TSTP 


KTPRES 




BEO 


It 




JSR 


PCMVCODE 


(MAP BACK TO CURRENT COPY 


MOV 


ISPSPEC-10,SP 


(SET up THE SPECIAL STACK POINTER 


CLP 


lOBKID 


(ALLOW TYPING 


MOVB 


tl , BRAKE 


(PREVENT MODULE STARTUP DURING MESSAGE 


MSGti 


pSYSEPR 


(TYPE SYS ERROR FAILURE. 


MOV 


tIT0A,R5 




JSR 


PC, CR5) 


(TYPE ERR PC, 


JSR 


PC, tR5) 


(TYPE ERR PSW, 


JSR 


PC, tR5) 


(TYPE SP AFTER ERROR 


JSR 


PC, (R5) 


(TYPE TRAP VECTOR ADDRESS 


MOV 


•SPBQT,SP 


(RESTORE MONITOR STACK POINTER 


BITB 


IBITI.PPRES 


(IS IT AN 11/60 7 •»••*•*•••••«••••**»****•*•••* 


BEO 


2S 


(NO, CONTINUE 


MSG*, 


iSYSERt 


(YES, TELL WHAT LOG REGS, ARE PRINTED 


JSR 


PC.PAMSGl 


(GO FINISH UP MESSAGE 


MSG*, 


,D0T 


(TYPE CRLF AND DOT 


BR 


PWRUA 


(ATTEMPT TO CONTINUE 
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SSQ ftQ9J 



3fi3S iPONER DOWN AND POWER UP ROUTINES. 

363t 



5837 


015 460 


004767 


003650 




PWRDN 1 


JSR 




Jiy"™ vr r VLUWP- JINO SAVE OlAlUg 


363t 


015464 


105767 


1616 1 4 






T8TB 


KTPPES 


1 KTl } IN Ul9C« 7 


3639 


015470 


001403 








BEQ 




• vn. mxiTTHTTr 


3610 


01S473 


00S017 


177572 






CLR 




«WC VfTBU TT nVI* 

fZKsf TUHN AT Qrr 


3611 


015476 


01 3767 


015506 


163130 


1 ( i 


MOV 


ttPWRUPi PWRPV 


• AFT IID Dnwm TiD ur/vfnB 


3613 


015504 


000000 








HALT 




■ DHuPB nnuM U&T T 
IrUnLn DwWPi nAuT 


3611 


O155O6 


01 3767 


01 5460 


163110 


PWRUPt 


MOV 




■ CFT iiB BnuvB nnuu irr/^ninB 


3614 


015514 


012706 


037313 






MOV 




■ BfSVf flVft^V 

JHESET STAWni 


3615 


015520 


005367 


1 61543 






InC 




ICwuNT A ruwEK rAIli 


3616 


1 5534 


1 05067 


161576 






CLRB 


RUNRPL 


IwuEfAnHSoune; hUN FuAv 


3617 


ISSlO 


004767 


171450 






JSR 


PCf CTRLX 


)V.UE>An UUCiUB-O *™U i ^ X i i niJ J <iC< Rill *' A"* UoBi| 


361fl 


OI55I4 


AAKAA7 


163130 






CLR 


IOBKID 


• ftf T nu TVBTM^ 
lAijLun XXrlnO 


3619 


015540 


1 12'67 


AAA An 1 


163345 




HOVB 


t 1 ( BRAKE 




3640 


015546 


1 04406 


021702 






MSG$ t 


PWRFAI 




3641 


015552 








PHRUA 1 








3643 


01S5S3 


105767 


161526 






T8TB 


KTpPES 


• If T1 1 TN HQS' 9 


3641 


015596 


001412 








BED 


^ 1 


jWUf VU'"II.PIUB< 


2644 


015560 


042717 


OOOOOl 


177573 




BIC 


tit (ItSSRO 




264S 


015566 


1 16701 


161472 






HOVB 


« 0^ 1 f f* 1 




3646 


015572 


052717 


OOOOOl 


177572 




BIS 


ill 9ISSR0 


iBACK TO HIGHER BANK 


2647 


015600 


110167 


161460 






MOVB 


Rl f SYSCNT 


• PUT AV< 7BD milMT TM TUTft MVMnOV AAMK 


3648 


01 5604 


136767 


161540 


161453 


111 


CMPB 




• BirirHirn thv qvc cbb t tmtt t 


3649 


015613 


101004 








BHI 


3« 


• Nn« ^nvTrNitv 


3650 


015614 


1 04406 


034145 






MSCI, 


SYSBAO 


• nirvirB^ T cir ABnBTpnn 


365 1 


015630 


000167 


171 220 






JMP 


CTRLCA 


• TTPT. r AVn ITTT.T. TUB* vyrorTCF 


7653 


015624 


112767 


000002 


161506 


2S 1 


BITB 


tBITl.PPRES 


jIS THIS AN 11/60 7 


3651 


015613 


001411 








BEO 


It 




2654 


015614 


012767 


1 00001 


161613 




HOV 


f 10000 If LCHOLD 


• vPjB . rn&n B^BBfiB r rykBTrn btt^ 


2655 


015643 










WRITE 


pnMHMI,WTWHMI 


jWpITE WHAI"I PEOISTER 


3656 


015642 


010046 








MOV 


PO,-CSP) 


(SAVE REG, 


2657 


015644 


076600 


000022 






MEDtRDWHHI 


iSAVE 


26SS 


015650 


056700 


161620 






BIS 


LSHOLD,R0 




2659 


015654 


076600 


000222 






HEDfWTWHMI 




2660 


015660 


012600 








HOV 


C5P)+,B0 


»PE.''TORF PEG. 


2661 


015662 


105767 


161421 




iti 


TSTB 


R"ODE 


(WERE WE IN RUN MODFT 


2662 


015666 


00112* 








BNC 


LOfllCA 


J BR ir YES TO RESTART . 


2661 


015670 


onosos 








BP 


CHMOUT 


jNO, CONTINUE 



iABM 


DEC/Xt 1 


STANOAPO 


'<ONITOB 


iXOABH 


.PI 1 


21.APP.77 


12«42 


3664 








3665 








2666 


015672 


02?6:« 




2667 


015674 


004767 


002434 


2668 


015700 


132767 


OOOOOl 


2669 


01S706 


001002 




2670 


fttSTlO 


QCOOOO 




2671 








2672 


015712 


00077* 




2673 








2674 


015714 


132767 


000002 


2675 


015722 


001405 




2676 


015724 


104406 


025427 


2677 


015730 


004767 


000076 


2678 


015734 


000706 




2679 








2660 


015736 


012700 


001430 


2681 


015742 


005001 




2682 


015744 


005770 


000000 


2683 


015750 


100407 




2684 


015752 


005720 




2685 


015754 


005201 




2686 


015756 


126701 


163357 


2687 


015762 


003365 




2688 


015764 


ooooon 




2689 








2690 


015766 


000776 




2691 








2692 


015770 


004767 


000002 


2693 


015774 


000S66 
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SEO 0094 



iPARITY ERROR TRAP HANDLER ROUTINE 



163432 



PARERR: 


CMP 


(sp)+,csp)+ 




JSR 


PCCLKorr 




BITB 


• BITCPPPES 




BNE 


7t 


lt< 


HALT 






BR 


IS 


2tt 


BITB 


»BIT1,PPRES 




BEQ 


31 




MSGS, 


PERR2 




JSP 


PC.PAMSGl 




BR 


PWPUA 


3«l 


MOV 


•PAPTAB.RO 




CLR 


Rl 


4t> 


TST 


f»CPOJ 




BMI 


6S 




TST 


tPO) + 




INC 


Rl 




CMPB 


CNTlrRl 




BGT 


3$ 


511 


HALT 






BR 


5$ 


6(i 


JSR 


PC,PS«Sl? 




BR 


PWpUA 



J POP THE STACK POINTER TWICE 
jMAKE SURE SYSTEM CLOCK IS OFF 

>I5 PARITY PRESENT/ENABLED ? 
J YES, CONTINUE 

:N0 PARITY BUT TRAPPED ANYWAY 

IRUN PARITY DIAGNOSTICS 

jKEEP HALTING IF HE HITS CONTINUE 



lis IT AN 11/60 7 
I NO, CONTINUE 
I "PARITY ERROR" 

iGO FINISH PARITY ERROR MESSAGE 
; ATTEMPT TO KEEP GOING 

jGET ADDRESS OF P,»RTTY ADDRESSES 
I ZERO THE REGISTER COUNTER 
; ERROR BIT SET ? 
JYES, GO REPORT IT 

jSTEP TO THE NEXT REGISTER ADDRESS 
;STEP THE REGISTER COUNTER 
!ALL REGISTERS CHECKED 7 
I NO, CONTINUE 

J YES, TRAPPED BUT NO ERRORS SET 

JRUN PARITY DIAGNOSTICS 

jKEEP HALTING IF HE HITS CONTINUE 



«»•«*«««••«•««*•»««•••«*«««««« 



!GD PRINT PARITY ERROR 
fATTEMpT TO KEEP GOING 



'ESSAGF, 
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3694 








J PARITY 


ERROR 


MESSAGE ROUTINE, 


ASSUMES THE JDISESS OF THE TklhtTHi 










a&BT^v pr^TCjrp ra Tu pn 




3696 
2697 


015776 


011046 




■ 

PAMSG 1 




t OA ^ ^ CB^ 
CR03 f •vSPj 


»GET ADDRESS OF FAILING PARITY PEG, 


3698 


016000 


012746 


000060 




Mnv 


#60 J " C SP5 


»LOAD THE E» BITS 


3699 


016004 


004567 


176143 




T«B 




fCONVERT IT TO OCTAL ASCII 


3700 


016010 


025350 






oorr 




IPUT IT INTO LOC. PREG 


3701 


016013 


017046 


000000 




ynv 


• I nU i , • I or } 


jGET CONTENTS OF FAILING PARITY REG, 


2703 


016016 


004567 


176U6 




JSR 


R5 OAC39V 


ICONVERT IT TO OCTAL ASCII 


3703 


016033 


035357 






PCONT 




J PUT IT INTO LOC. PCOST 


2704 


016034 


104406 


035330 




MSGI f 


'ERRl 


> "PARITY ERROR -- RUN PARITY DIAG." 


3705 


016030 


000207 






PT8 


PC 


» RETURN 


2706 
















3707 
















3706 


016032 


004767 


001450 




J5B 


PC f SAVLOG 


tSAVE ERROR LOG IN BUFFER ••••••••«••••««•*•»«••«•« 


3709 


016036 


012702 


031632 




MOV 


#LOGBUP'»200> R2 


jGET ADR, OF SERVICE REGISTER (100*3) 


2710 


016042 


013701 


000010 




MOV 


tlOrRl 


tSET THE COUNTER 


2711 


016046 


013346 




i«i 


MOV 


(R2)+»-(8P) 


J PUT CONTENTS OF LOG REG, ON STACK 


2712 


016050 


004567 


176064 




JSR 


RS.OACNV 


fCONVERT IT TO OCTAL 


3713 


016054 


035675 






H0LD6 




(AND PUT IT HERE 


2714 


016056 


012746 


025675 




MOV 


•H0LD6,-(SP) 


J PUT IT ON THE STACK 


3715 


Qi6o63 


004767 


171300 




JSR 


. TVO» 


.jijn Tvpr TT 


3716 


016066 


005301 






DEC 


Rl 


{ALL DONE ? 


97t7 










BNE 


t* 


J SO. COKTTNUE 


3719 


016073 


012746 


022772 




MOV 


lACRLF^-tSPJ 


(PUT A CR AND LF ON THE STACK 


3719 


016076 


004767 


171264 




JSR 


PC, TYPE 


fAND TYPE IT 


3730 


016103 


000307 






RTS 


PC 


(RETURN 


2721 
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2732 








2733 








2724 








3725 


016104 


105767 


163202 


3736 


0161 10 


100403 




2727 


016112 


000167 


172530 


2729 


016116 


105767 


163162 


2729 


016123 


001 403 




2730 


016124 


005037 


177572 


2711 


016130 


016700 


161706 


2733 


016134 


004710 




3733 


0161 36 


000240 


000240 


2734 


016144 


105767 


163143 


77 J5 


msiso 


tW(y033 




3736 


0161S2 




163114 


27 37 


016156 


001412 




2738 


016160 


016767 


163110 


3739 


016166 


016767 


163103 


2740 


016174 


105267 


163113 


2741 


016900 


105267 


I631H 


3742 


016204 


0127S7 


000001 


27*3 


016212 


016767 


163054 


2744 


016220 


105767 


163060 


2745 


016224 


001420 




3746 


016226 


032737 


000001 


2747 


016334 


001005 




2748 


016236 


004767 


173553 


2749 


016343 


012737 


000001 


2750 








2751 








2752 


016350 


016767 


163766 


2753 


016356 


004767 


003213 


2754 


016362 


004767 


003130 


2755 


016266 


105767 


163030 


2756 


016272 


001402 




2757 


016274 


000167 


163334 


2756 


016300 


000167 


172630 
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iROUTINE TO EXIT TO CHAIN MONITOR, OR RETURN TO KYBD PTN, 
I PROGRAM SHOULD ALWAYS BE IN BANK BY HERE 



SEQ 0096 



iSt 



3t| 

LOGIC I 



000340 



163040 
163044 



163100 
163064 



177573 lit 



177573 



511 

6*1 



TSTB 


CHN 


(IN CHAIN MODE? 


BHI 


IS 


>BR IF YES. 


JMP 


COMCON 


jBACK TO KYBD SERVICE, 


TSTB 


KTPPES 




BEQ 


2t 


jBRANCH IF NO KTU 


CLR 


»tSSRO 


J TORN OFF KTll 


MOV 


42, RO 




JSR 


PC, CRO) 


(RETURN TO MONITOR, 


.WORD 


NOP, NOP, NOP 




TSTB 


CHN 


(IN CHAIN MODE? 


BPL 


3» 


iflR IF NO 


TSTB 


KTSAV 


(YES, KT REALLY PRESENT? 


BEQ 


41 


(BR IF NOT 


MOV 


HCP12A,HCOR12 


(SET REAL MEMORY SIZE 


MOV 


HCR12A,0FFHX 


(TOP ALLOWABLE PROGRAM OFFSET 


INCB 


ROTI 


(ALLOW WBUFF ROTATION 


INCB 


RELOC 


t ALLOW CODE RELOCATTON 


MOV 


#1,CHN 


(ONLY RETIRN TO CHAIN MONITOR 


MOV 


KTSAV,KTPRES 


(TELL THE TRUTH 


TSTB 


KTPRES 




BEO 


5« 




BIT 


*l,9tSSR0 


(KTU ALREADY ON? 


BNE 


2t 


(YES-SKIP REINITIALLIZING 


JSR 


PC.KTIMIT 




MOV 


f 1,>*SSR0 




MOV 


OFFSET, OFfSID 




JSR 


PCMVCODE 




JSR 


PCCLKON 


(TURN CLOCK ON 


TSTB 


CHN 




BEQ 


6* 




JMP 


START 




JMP 


RUNRES 
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SES 0097 



3759 










1 SUBROUTINE TO 


ROTATE WRITE BUFFERS IF ROTI INDICATOR ■!, 


2760 
2761 


} 6 30 4 


105767 


163003 




ROTBUri 


TSTB 


ROTI 


fPOTATION ALLOWED? 


2762 


016310 


001557 








BEQ 


BOTXT 


»BR IF NOT, 


276 3 


016312 


1 05767 


162776 






TSTB 


ROTL 


lis ROTATION LOCKED 7 


2764 


016316 


100016 








BPL 


IS 


|N0, CONTINUE 


2765 


016330 


1 05767 


163003 






TSTB 


LOCK 


tyes, is the program locked ? 


2766 


016324 


001013 








BNE 


It 


jYES, DON'T SET STOP 


2767 


016326 


005367 


162764 






DEC 


ROTCNT 


»N0, TIME TO RELOCATE 7 


2766 




003 1 46 








BST 


ROTXT 


;N0, CONTINUE 






105767 


163012 






TSTB 


NSTOP 


J ALLOW STOP TO SET T 




nt Kiln 










BKE 


lot 


jNO, CONTINUE 


277 1 


016343 


1 05267 


163456 






INCB 


STOP 


;YES, SET THE STOP FLAG 


2772 


01 6346 


016767 


163746 


162742 


lOtI 


MOV 


ROTNUM, ROTCNT 


; RESTORE THF COUNTER 




n! 


1 05767 


163444 




111 


TSTB 


STOP 


JIF STOP IS SET, DON'T ROTATE 


2774 


016 360 


001 133 








BNE 


ROTXT 








1 05767 


163736 






TSTB 


ROTL 


J ROTATE LOCKED? 


2776 


P 1 6 3 DC 










BMI 


ROTXT 


J BR IF YES 






1 05767 


163435 






TSTB 


MDXCTR 


;IF COUNTER NOT INITIALIZED, DON'T ROTAYE 


2779 


016374 


1 00535 








BMI 


ROTXT 




2779 


016376 


016746 


162630 






MOV 


WBUFf-CSP) 


SCHECK CURRENT VALUE 


2780 


1 6 4 2 


043716 


160000 






BIC 


tl60000i (SP) 




278 1 




022736 


G 16000 






CMP 


»16000, (SP)+ 




2782 


016412 


003016 








BGT 


3t 


JIF NOT LAST IN BANK, BRANCH 


278 3 


016414 


105767 


162401 






TSTB 


MDXCTR 


:HAVE ALL MODULES USED A VALUE IN THIS BANK? 


2764 




001403 








BEQ 


3t 


JYES- TIME TO CHANGE BANKS 


2785 


016423 


1 05 367 


1 62706 






DECB 


IGWBFC 


|N0, DEC TIMEOUT COUNTER 


2786 




0011 10 








BNE 


ROTXT 


JEXIT UNLESS TIMEOUT HAS OCCURRED 


2787 




1 16767 


162366 


162363 


3«( 


MOVB 


MDXCNT,"DXCTR 


.•RESET COUNTERS 


278S 




1 16767 


1 62367 


1 62670 




MOVB 


ROTCT.SGWBrC 




2789 


016444 


1 05 1 67 


162353 






COMB 


wbflg 


(TOGGLE INDICATOR 


2790 


1 6 4S 


026767 


1 62562 


163564 


3$l 


CMP 


WBUF13, OFFSET 


;LOCDPE POTATION? 


2791 


016456 


101453 








BLQS 


ROTLOl 


;YES- BRANCH 


2792 


n 1 A A A n 

I' 1 ^ I? u 


06276' 


U wU U * U 


162550 




ADD 


»20»WBUri2 




2793 


016466 


026767 


162544 


162532 




CMp 


WBUF12,HC0R13 


jCHECK FOR TOP OF WPITE BUFFER AREA 


2794 




1 03427 








BLO 


R0TB2 


jIF NOT, BRANCH 


2795 


01647 6 


000400 








BR 


4t 


(IF OVER, START AGAIN 


2796 


1 6500 


026727 


162536 


000400 


4tl 


CMP 


OFFSET, #400 


(ROTATE THRU MEMORY BELOW PROGRAM IF ENOUGH 1 


2797 












BLO 


ROTBl 


(NOT ENOUGH ROOM 


2798 


016510 


004767 


000136 






JSR 


PCPOTLOW 


(SETUP TO rotate; below PROGRAM 


2799 


016514 


000455 








BR 


ROTXT 


(RETURN 






105767 


1 63573 




ROTBl t 


TSTP 


PFLOC 


(RELOCATION ALLOWFD? 


2801 




001 426 








BEQ 


R0TB3 


(NO- BRANCH 






105767 


162577 






TSTB 


LOCK 


(LOCKED? 


2803 


016530 


001023 








BNE 


R0TP3 


(YES- BRANCH 


2604 


016532 


105767 


162614 






TSTB 


NSTOP 


•ALLOW STOP TO SET ? 


2805 




001 002 








BNE 


IS 


(NO, CONTINUE 


2806 


016540 


1 05267 


162260 






INCB 


STOP 


[YES, SET STOP 


2807 


016544 


162767 


000030 


162464 


ISI 


SUB 


»20rW8UF12 


(RESTORE WBUr 


2808 


016553 


000436 








BB 


POTXT 


(EXIT 


2809 


016554 


062767 


003000 


163450 


R0TB3I 


ADD 


12000, WBUF 


(BUMP ADDR- POINT 512 WORDS HIGHER 


2810 


016562 


103003 








BCC 


IS 




2611 


016564 


062767 


000020 


162442 




ADD 


t20,WBFEA 




2812 


016572 


004767 


173130 




111 


JSR 


PCSETWBl 


[Calculate; mxwbf 


2813 


016576 


000424 








BP 


ROTXT 




2814 


016600 


004767 


173040 




R0TB3I 


JSR 


PC.SETWBF 





QABM ! 


5EC/X11 STANDARD 


MONITOR 


MACYll 


27tl006) 


23- 


APR-77 OOlll PAGE 


96 


DXOABM.Pli 21 


-APR-77 


13143 












2815 


016604 


000421 








BR 


ROTXT 


(RETURN 


2816 


















3817 


016606 


062767 


000020 


162422 


ROTLOl ( 


ADO 


»20,WBUF12 




3818 


016614 


026767 


162416 


162430 




CMP 


WBIIF12, OFFSET 




2819 


016622 


103401 








PLO 


R0TP4 


[OK- USE IT 


3830 


016624 


000734 








BR 


ROTBl 


(NO- RELOCATE OH START WBUF CYCLE OVER 


2821 


016626 


062767 


002000 


162376 


R0TB4I 


ADD 


#3000, WPUF 


(ADVANCE THE WRITE BUFFER 


3833 


016634 


103003 








BCC 


IS 


(IF NO CARRY DOW'T ADJUST THE EA BITS 


3823 


016636 


062767 


000020 


162370 




ADD 


t20««BFEA 


(CARRY SET, ADJUST THE EA BITS 


3824 


016644 


004767 


000016 




tSl 


JSR 


PC.POTLWl 


(TAKE CAPE OF ROTATING BELOW THE PROGRAM 


2825 


016650 


000307 






ROTXTl 


RTS 


PC 


(RETURN 
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SEQ 0099 



2626 










ITHIS ROUTINE 


WILL HANDLE THE 


SITUATION iKHEN THE WRITE BUFFER 


2S27 










1 BCNEXTH THr PRQGPiM 




2t2S 










RQTLOWi 








2829 


016652 


005067 


162354 




CLR 


WBUr 




2(30 


016656 


005067 


163352 






CLR 


WBFEA 




283! 


016662 


005067 


162350 






CLR 


VBuri2 




3832 


016666 


016767 


162350 


163362 


ROTLWli 


MOV 


OFFSET. MXWBP 




3833 


016674 


166767 


163336 


163354 




SUB 


WBUF12»MXWBF 




2834 


016702 


006367 


163350 






ASL 


MXWBF 




3835 


016706 


006367 


162344 






ASL 


MXWBF 




2836 


016712 


006367 


162340 






ASL 


MXWBF 




3837 


016716 


006367 


162334 






ASL 


MXWBF 




3838 


016722 


006367 


162330 






ASL 


MXWBF 




S839 


016736 


103003 








BCC 


1$ 




2840 


016730 


012767 


177777 


162320 




HOV 


#177777, MXWBF 




2841 


016736 


000207 






ISt 


RTS 


PC 


jRETURN 


2842 


















3843 


















3844 










1 SUBROUTINE TO 


CHECK IF BUFFER 


ROTATION ENABLED, AND TO TYPE 


3845 










jTHE ROTATION 


RANGE, 




2846 


















2847 


016740 


105767 


162371 




ROTCHK! 


TSTB 


MrMPsr 


tRHV MEwp.RY EPPr.RS? 


2848 


016744 


001406 








BEQ 


1$ 


)N0- BRANCH 


3849 


016746 


104406 


026344 






MSGS.MrRR! 




-28S0 




10440« 


023724 






MSGSfMEMCHG 




2851 


016756 


105067 


162353 






CLBB 


MEMFRF 




2652 


056762 


ie»5767 


162325 




ISl 


TSTB 


ROTI 


SROTATE ENABLED? 


2853 


016766 


001430 








BEO 


21 


»BP IF NOT, 


2854 


016770 


104406 


024505 






MSGSiFOTENB 




2855 


016774 


016746 


162220 






MOV 


LOCORE.-CSP) 


fTYPE LOWER LIMIT. 


2856 


017000 


004767 


174422 






JSR 


PCITOA 




2857 


017004 


004567 


175662 






JSR 


P!,T018S 


»CONVERT UPPER LIMIT 


2856 


017010 


001336 








HC0P12 






3859 


017012 


001132 








SAVLO 






3860 


017014 


001134 








SAVHI 






3861 


017016 


162767 


000002 


162106 




SUB 


t2,SAVL0 




3862 


017034 


103003 








BCC 


3$ 




2863 


017036 


162767 


000020 


162100 




SUB 


#20. SAVHI 




3864 


017034 


016746 


162072 




3$l 


HOV 


SAVIO.-CSP) 


ITXPE UPPER LIMIT 


2865 


017040 


016746 


162070 






MOV 


SAVHI. -tSP) 




2866 


Ol7o44 


004767 


174266 






JSR 


PC.ITOAX 




3867 


















2868 


017050 


000207 






2SI 


RTS 


PC 


(EXIT. 
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2869 








(THIS 


ROUTINE 


PRINTS OUT THE 


SYSTEM MCMnPY SIZE t'l DECIMAL. 


2870 
















2871 


017052 


016700 


162150 


SYSIZj 


HOV 


HCOP12,B0 


jGET THF MEMORY SIZE 


2872 


017056 


006200 






ASR 


RO 


■CONVEPT FROM BYTE SIZE TO K WORD SIZE 


2873 


017060 


006200 






A5R 


RO 




2874 


017062 


006200 






ASR 


RO 




2875 


017064 


006200 






ASR 


RO 




2876 


017066 


006200 






ASR 


RO 




2877 


0)7070 


010046 






MCV 


RO,-CSP) 


jPUT IT 0»< THE STACK 


2878 


01 7072 


004567 


175274 




JSR 


P5,BDCMV 


(CONVERT TO DECIMAL ASCII CHARACTERS 


2879 


017076 


02S667 






HOLDS 




jAND PUT THEM HERE 


3980 


017100 


01 2700 


0J56S7 




MOV 


•HOLDS, Po 


jGET THK LDCATinw OF THF. ASCII NUMBER 


2881 


017104 


122720 


000060 


ISI 


CMPB 


«60, (R0)+ 


jIS IT A LEADING 0? 












Bwr 


7i 


jKD, COMItJL'E 


2883 


ni7ti7 


1 1 276n 


000C4O 


! 7 7 7 7 ' 


MnvB 


»4n,-itP0) 


lYES, FILL IT ftlTn A BLANK 


3884 


017120 


000771 






BR 


IS 


(CHECK THE NEXT CHARACTER 


2885 


017122 


1 04406 


024465 


2Sl 


MSGS, 


SYSSIZ 


("SYSTEM SIZEl" 


2866 


0171 26 


1 04406 


025667 




MSGS, 


HOLDS 


J TYPE THE SYSTE'^ SIZE 


2887 


01713? 


1O4406 


024501 




MSGS, 


KAY 


J "K" 


2688 


017136 


000307 






BTS 


PC 
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SEO OJOl 



2at9 








3890 








2891 








3892 


017140 


010046 




2893 


017142 


010146 




3894 


017144 


016746 


162114 


3899 


017150 


004S67 


175216 


3896 


017154 


035667 




3897 


6l7lS6 


013701 


000004 



I THIS ROUTING HILL PRINT THE NUMBER OF SVSTEW ERRORS 

(POUND IN COUNTER 8YSCNT. CALL VIAi J8R PC.STSNUM 

SYSNUMl MOV RO,-(SP) (SAVE REG. 

MOV Rlf'CSP) (SAVE REG, 1 

MOV SYSCNT,-(SP) >PUT SYSTEM ERROR COUNT ON STACK 

JSR R5,B0CNV (CONVERT IT TO DECIMAL ASCII CHARS, 

HOLDS I AND PUT THEM HrPE 

MOV §4, HI iLOAD THE COUNTER 



OABM 0EC/X)1 STA^OARn MONITOR MACYll 27(1006) 33-APP-77 OOjll PAGE 100 

DX0ABM.P11 21.APR-77 12|43 SE'J 0102 



3898 


017162 


012700 


025667 


MOV 


IHOLD5,P0 


(GET ADR OF THE ASCTI HIIMBEP 


3899 














3900 


017166 


122720 


000060 lit 


CMPB 


•60. (PO)* 


SiS IT A LEADING ZERO 7 


2901 


017172 


001005 




BNE 


21 


)N0, CONTINUE 


3902 


017174 


112760 


000040 177777 


MOVB 


i40i-l(B05 


lYES, REPLACE IT WITH A BLANK 


3903 


017202 


005301 




DEC 


Rl 


TALL DONE 7 


3904 














2905 


017204 


001370 




BNE 


11 


JNO, CHECK MOPE CHARACTERS 


3906 














3907 


017206 


104406 


025531 2tl 


HSGSi 


rNUMSYS 


J'SYSTEM ERROPSl" 


3908 


017213 


104406 


025667 


MSGl, 


, HOLDS 


(TYPE THE NUMBEO 


3909 














2910 


017216 


012601 




MOV 


(SP)+,R1 


(RESTORE PEG, 1 


3911 


017220 


012600 




NOV 


(SP)+,PO 


(PESTORt; REG, 


3913 


017222 


O0O2P7 




RIS 


PC 


(PETUPN 
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-APR-77 


13t43 


3913 
















291S 








3916 


C17224 


010046 




2917 


017226 


010146 




3919 


017230 


016746 


162032 


2919 


017J34 


004567 


175132 


3930 


017240 


025667 


000004 


3931 


017242 


012701 


S922 


017246 


012700 


025667 


2933 








3934 


017252 


122720 


000060 


393S 


017256 


00)005 




393* 


017260 


113760 


000040 


3937 


017266 


005301 




3938 


017270 


001370 




3939 








3930 


017272 


104406 


025551 


3931 


017276 


104406 


025667 


3933 








3933 


017302 


012601 




5934 


017304 


012600 




2935 


017306 


000207 




2936 









1 THIS POUTINE MILL PRINT THE NUMBER OF POWER FAIL ERRORS 

iFOUNO IN COUNTER PWBCNT. CALL VI&I JSR PC/PWRNUH 



177777 



pMRKUMi MOV 
MOV 
MOV 
JSR 
HOLDS 
MOV 
MOV 

111 CMPB 
BNE 
MOVB 
DEC 
SNS 



RO,-(SP) 
R1,-CSP) 

P«RCNT,"CSP) 
R5,BDCNV 

84, PI 
(HOLDS, RO 

i60# tRO) + 
2( 

i40,-l(R05 

Rl 

IS 



MSSIiNUMPWR 
MSSliHOLDS 



MOV 
MOV 
BTS 



tSP)+,Rl 
tSP)+,P0 
PC 



I SAVE REG. 
(SAVE REG. 1 

J PUT POWER FAIL ERROR COUNT OH STACK 

iCONVEPT II TO DECIMAL ASCII CHARSt 

I AND PUT THEM HERE 

I LOAD THE COUNTER 

jSET ADR OF THE ASCII NUMBER 

ilS IT A LEADING ZERO ? 
(NO, CONTINUE 

jYES, REPLACE IT WITH A BLANK 
I ALL DONE T 

iHO, CHECK MOPE CHARACTERS 

J "POWER FAILS!" 
iTYPE THE NUMBER 

jRESTORE REG. 1 
(RESTORE RES. 
(RETURN 
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2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
3949 
JWO 
2951 
2952 
2953 
2954 
2955 
29S6 
2957 
2958 
29^9 
2960 
2961 
2962 
2961 
3964 
2965 
2966 
2967 
296B 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
3983 
3984 
3985 
2986 
2987 
2988 
2989 
2990 
3991 
9992 
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I THIS ROUTINE WILL CONVERT THE GIVEN BINApy 

(NUMBER INTO HOURS, MINUTES, AND SECONDS, LOCATIONS 
(HOLDING THE FINAL NUMBERS WILL BE TAGGED ASl HOURS, 
(MINITS, AND SEKNDS. HOURS MUST BE ON AN ODD BOUNDAPY. 
(MINITS AND SEKNDS "UST BE ON EVEN BOUNDARIES, 
(TEMPORARY LOCATION HOLDS MUST BE ON AN ODD BOUNDARY. 



CALL VIAj 



JSR 
ADR 
ADRX 



PCjHHS 



(ADDRESS OF THE TIME 

(ADDRFSS OF EXTENDED TIME BITS 



017310 


0^4467 


175424 




HMS« 


JSP 


P4,SAV04 


(SAVE REGS, 0-4 


017314 


016600 


000012 






MOV 


lo.fSP) ,po 


(GET ADR OF or >DR TIME 


017320 


010003 








HOV 


R0,R3 


(COPY IT INTO PEG, 3 


M7i?? 










T8T 




rOCT AOO Of FXTfWOBC TIME BITS ADR 


017324 


017000 


000000 






MOV 


•(RO),P0 


•PUT THF TIME IN REG. 


O17330 


017303 


000000 






MOV 


P(P33,P3 


(PUT EXTENDED TIME BITS INTO REG, 3 


017334 


005001 








CLR 


Bl 


(ZERO MINUTES COUNTER 


017336 


005002 








CLR 


B2 


(ZERO HOURS COUNTER 


017340 


022700 


007020 




l$l 


CMP 


•3600. ,R0 


(LESS THAN 1 HOUR? 


017344 


101013 








BHl 


3$ 


(YES, GO LOOK FOR MORE HOURS 


017346 


162700 


007020 






SUB 


#3600, ,R0 


(NO, SUBTRACT 1 HOUP'S WORTH OF SECONDS 


017352 


005202 








INC 


R2 


(COUNT AN HOUR 


017354 


000771 








BR 


IS 


(CHECK FOR MORE HOURS 


017356 


022700 


000074 




2SI 


CMP 


160. ,R0 


(LESS THAN 1 MINUTE? 


017362 


101014 








BHI 


4« 


(YES, ALL DONE 


017364 


162700 


000074 






SUB 


#60,,R0 


(NO, SUBTPACT 1 MINUTE'S WORTH OF SECONDS 


017370 


005201 








INC 


Rl 


(COUNT A MINUTE 


017372 


000771 








BR 


2t 


(CHECK FOB MORE MINUTES 


H7374 


005703 






3S! 


TST 


R3 


(ANY EXTENDED TIME SITS ? 


017376 


001767 








BEQ 


2t 


(NO, GO LOOK FOP MINUTES 


017400 


062702 


000021 






ADO 


»17.,R2 


(YES, ADD IN 17. HOURS 


017404 


062700 


010360 






ADD 


t4336.,P0 


(ADO IN 1 HR 13 MIN 16 SEC 


017410 


005303 








DEC 


R3 


(GET RID OF ONE TIME EXTENDED BIT 


017412 


000752 








BR 


t( 


(CONTINUE 


017414 


010246 






4$l 


MOV 


R2,-CSP) 


(PUT THE HOURS ON THE STACK 


017416 


004567 


174750 






JSR 


RS.BDCNV 


(CONVERT IT TO ASCII 


017422 


025667 








HOLDS 




(AND PUT IT HERE 


017424 


116767 


006241 


161753 




MOVB 


HDLD5+2, HOURS 


(LOAD HOURS 


017432 


016767 


006234 


161746 




MOV 


H0LD5+3,H0URS+1 


(LOAD HOURS 


017440 


010146 








MOV 


B1,-(SP) 


(PUT THE MINUTES OH THE STACK 


017442 


004567 


174724 






JSR 


RS.BDCNV 


(CONVERT IT TO ASCII 


017446 


025667 








HOLDS 




(AND PUT IT HERE 


0174S0 


016767 


006216 


161732 




HOV 


HOLDStJ, MINITS 


(LOAD MINUTES 


017456 


010046 








HOV 


RO,-tSP) 


(PUT THE SECONDS ON THE STACK 


017460 


004567 


174706 






JSR 


RS,BDCNV 


(CONVERT IT TO ASCII 


017464 


025667 








HOLDS 




(AND PUT IT HERE 


017466 


016767 


006200 


161716 




MOV 


HOLOS'f 3, SEKNDS 


(LOAD SECONDS 


017474 


004767 


175252 






JSR 


PC,RST04 


(RESTORE REGS 0-4 


017S00 


062716 


000004 






ADD 


•4,(SP] 


(SET PROPER RETURN PC 


017504 


000207 








RT8 


PC 


(AND RETURN 
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5E(3 01 05 
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2994 1 THIS ROUTINE COPIES THE 11/60 ERROR LOG AND PIITS IT INTO 

2995 |A BUrrER IN THE MONITOR. 
2996 



2997 


017506 


1 32767 


000002 


161624 SAVtOGi 


BITB 


IBITl.PPPES 


jIS IT AN 11/60 7 *•»««•«••*»»««»•*«**•*••*«*»*« 


2996 


017514 


0014) 4 






BEO 


3t 


>N0, GET OUT 


2999 


017516 


012701 


031422 




MOV 


»t,OGBUF,Pl 


:GET SDB. OE LOG BUFFER 


3000 


017522 


005002 






CLP 


R2 


jINITIALIZE LOG COi^'^AND A*ID ADDRESS 


3001 
















3002 


017524 


010267 


000002 


ISI 


MOV 


R2,2S 


!LO»D READ COv'AND (iNn THE ^D^RESS 


3003 


017530 


076600 






MED 




JPE40 THE LOG PEGISTEP 


3004 


017532 


OOOOPO 




2$i 


.WORD 




jREAD COMMAND AND PEGISTEP ADDRESS 


3005 


017534 


010021 






MOV 


BO,(Pn + 


J STORE CONTE^iTS DE l,OG Xt BUFFER 


3006 


017536 


005202 






INC 


P2 


JSTEP TO NEXT ADDRESS 


3007 


017540 


022702 


000177 




CMP 


#177, P? 


•ALL DOVE 7 


3008 


017544 


001367 






B^E 


IS 


rNO, KEEP GOIi!G 


3009 
















3010 


017546 


000207 




3$: 


PTS 


PC 


lYES, RETURV 



3011 
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SEQ 0107 



S012 










1 


THIS 


ROUTINE CHECKS TO 


SEE IF ANY CLOCK 


jon 










1 MODULES ARE 


PRESENT AND SETS 


BIT FLAGS IN BYTE 












•LQC'TIOM CLOCK 




3015 










1 




CALL VIAl 


JSR PCKLOCK 


3016 










» 








3017 


















3018 


O17550 


105067 


161577 




KLOCKJ 


CtPB 


CLOCK 


SZERO CLOCK FLAG 


3019 


017554 


005767 


161576 






TST 


CLOCKL 


»KW11-L CLOCK PRESEVT7 


3020 


017560 


001406 








BEQ 


1$ 


jNO, COKTINUE 


3021 


0175S2 


112767 


000001 


161563 




MOVB 


«BIT0iCLSCK 


I SET L CLOCK PRESENT FLAG 


3023 


017570 


017700 


161562 






MOV 


gCLOCKLiRO 


•GET BEGIN ADDRESS OF CLOCK MODULE 


3023 


017574 


000410 








BR 


28 


(CONTINUE 


3024 


















302S 


017576 


005767 


161556 




IS! 


TST 


CLOCKP 


jKWll-P CLOCK PRESENT? 


3026 


017602 


001421 








BEQ 


4« 


>N0, RETURN 


S0J7 


017604 


112767 


000002 


161541 




MOVB 


IBITl, CLOCK 


iSET P CLOCK PRESENT FLAG 


3028 


017612 


017700 


5'":42 






MOV 


9CLOCK?,B0 


>GET BEGIN ADDRESS OF CLOCK MODULE 


J029 


017616 


012737 


; )2 


000004 


2Sl 


M.nv 


«3S>i>l4 


;LOAD TIME-OUT VECTOR 


3030 


017624 


005070 


000006 






CLR 


*6(R0) 


jMAKE SURE SYSTEM CLOCK IS THERE 


3031 


017630 


000406 








BR 


4t 


(IT'S THEREi BETURV OK 


3032 


















3033 


017632 


022626 






3$i 


CMP 


t5P)+, (SP1+ 


JPOP THE STACK POINTER TWICE 


3054 


017634 


10440S 


024317 






MSGSi 


! NOrLK 


J 'NO SYSTEM CLOCK FOUND' 


3035 


017640 


000000 








HALT 




jWAIT FOB OPERATOR'S DECISION 






1 ncnft7 


161505 






CLRB 


CLOCK 


jINDICATE NO CLOCK AVAILABLE 


3037 


017646 


012737 


015246 


000004 


4Si 


MOV 


»BUSERR, l>«4 


[ReSTORB Tl*it-OuT VECTOP 


3031 


017654 


000207 








RTS 


PC 


JRETUR.M 
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3039 










I 


THIS 


ROUTINE «ILL GET THE RUNTI«E IN 


3040 










> SECONDS FROM 


THE CLOCK MODULE, 


HAVE IT CONVERTED 


3041 










|T0 HOURS, MINUTES, AND SECONDS 


VTA SUBPOUTINE HM5, AND 


3042 










[STUFFS 


IT INTO PROPER LOCATION 


FOB PRINTOUT. 


3043 










J 




CALL VIAl 


JSP PCPUNTYM 


3044 


















3045 


017656 


010046 






RUHTYMJ 


MOV 


R0,-(SP) 


iSAVE RFG, 


3046 


017660 


132767 


000001 


161465 




BITS 


«BITO, CLOCK 


jUSIMG THE KHU-L CLOCK? 


3047 


017666 


001005 








ENE 


IS 


jYES, CONTINUE 


304P 


017*70 


1 32767 


000002 


161455 




BITS 


#RIT1 , CLOCK 


lUSING THE K«ll-P CLOCK? 


3049 


017676 


001004 








RNE 


2S 


;YES, CONTINU": 


3050 


017700 


000456 








BR 


56 


;N0, CAN'T DO ANYTHING, RFTURN 


3051 


















3052 


















IW! 


















3054 


















3055 


















3056 


















3057 


















3058 


















3059 


01 7102 


016700 


161450 




18i 


MOV 


CLOCKL, RO 


:GET ADP OF CLOCK INFORMATION 


3060 


















3061 


















3062 


017706 


On0402 








BP 


3$ 


[CONTINUE 


3063 


017710 


016700 


161441 




2$: 


MOV 


CLOCKP, BO 


[GET ADR OF CLOCK INFORMATION 


3064 


















3065 


017714 


016067 


000002 


161472 


3$l 


MOV 


2tR0) ,RTIME 


[GET THE TIME FROM THE CLOCK MODULE 


3066 


017722 


0160S"' 


177776 


161466 




»»0V 


-2(R0),PTIMX 


[GET THE TIME EXTENDED BITS TOO 


3067 


017730 


105767 


161355 






TSTB 


RMODE 


[PROGRAM IN THE RUN MODE 7 


3068 


017734 


001407 








BEQ 


4S 


[NO, MUST BE TI"E FOP SUMMARY 


3069 


017736 


105767 


161407 






TSTB 


TFLAG 


(YES, IS IT ERROR TIME ? 


3070 


017742 


1 00404 








BVI 


43 


[YES, SETUP BUNTIWE FOP OUTPUT 


3071 


ni7744 


012777 


nioooc 


1«122« 




pjT 


«PrT12,?SP 


;N0, PRINT THE EOP DATA ? 


3072 


















3073 


















3074 


017752 


011431 








BEQ 


5S 


[NO, RFTUPN 


3075 


















3076 


017754 


004767 


177330 




4»l 


JSP 


PCHMS 


[CONVERT TO HOURS, MINUTES AND SECONDS 


3077 


017760 


001414 








RTIKE 




[FROM SECONDS 


307 8 


017762 


001416 








RTIVX 




[EXTENDED BITS 


3079 


017764 


116767 


161415 


006105 




MOVB 


HOURS, THBS 


[LOAD lOO'S COLUMN OF HOURS 


3080 


017772 


116767 


161410 


006100 




MOVB 


H0URS+1,THPS»1 


[LOAD lO'S COLUMN OF HOURS 


3081 


020000 


116767 


161403 


006073 




MOVB 


HOUBS+2,THRS+2 


[LOAD I'S COLUMN OF HOURS 


3082 


020006 


116767 


161376 


006067 




MOVB 


MINUS, TMINS 


[LOAD lO'S COLUMN OF MINUTES 


3083 


020014 


116767 


161371 


006062 




KOVB 


HINITS+1,TMINS+1 


ILOAD 1*8 COLUMN OF MISUIES 


3084 


020022 


116767 


161364 


006056 




MOVB 


8EKNDS,TSECS 


[LOAD lO'S COLUMN OF SECONDS 


3085 


020030 


116767 


161357 


006051 




MOVB 


SEKNDS+1,TSECS+1 


[LOAD I'S COLUMN OF SECONDS 


3086 


















3087 


020036 


012600 






511 


MOV 


CSP)+,R0 


(RESTORE REG, 


3088 


020040 


000207 








RTS 


PC 


[RETURN 
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3090 












THIS 


ilUUTI.Nc< "XliL SETUP 


THE TIME ZHFORMATIOfi 


309 1 










iTOB THE END 




^ESSAGESi IT ALSO LOADS THE START 












rTIME rOR k 




CALLED APE RUNTYM A WD HMS , 


3093 










• 




^ATI. VTA* 


JSR PC J PASTYM 


















JSR PCfERRTYM 


309S 
















JSR PC f BKTY*^ 






















ft n A 


1 12767 


QuOOuX 




BKTiMi 


MOVB 


ISITOrTFLAG 


jSET FLAG INDICATING BKMQD TI^E SETUP 


3098 


020050 


A A A AAA 

UUU4UD 








BR 


RUNPA5 


1 CONTINUE 




020052 




Art 1 A 

00020D 


161271 


ERPTYMi 


MOVB 


iPIT7f TFLAG 


(SET ERROR CALL FLAG 






A A A A A ^ 
U U U 4 U / 








BR 


RUNPAS 


tCONTlNUE 




020062 


1 05067 






PASTYM 1 


CtjRB 


TFLAG 


J SET END OF PASS FLAG 












• 

RUnPASi 








« 1 n1 


- - - 
p 200p 


4467 


174646 




JSR 


DA C & V A A 


S SAVE REGS . 0*4 






1 32767 


A A A A A 1 


1612 




8TTB 




J USING THE KWi l«iL CLOCK? 


^« n£ 


A 9 A 4 A A 


A A 1 nf\% 

■Jul U U 3 








BNE 


1 S 






020102 




A A A A A 9 


1612 




BITS 


KDTTI 

Pn J 1 1 fCLUCl^ 


lUSING THE KWll-P CLOCK? 


11 n7 


A9 A 1 1 A 


A A 1 nnA 








BNC 






11 nfl 


020 J 12 


A AA V A<V 








BR 


9S 


fNQf CAN'T DO ANlfXHING# RETURN! 


3109 


















3110 


0201 1 4 


_ 

016 7 00 






181 




n^KI DA 


I GET ADR OF CLOCK I N'FOR*'ATION 


3111 


0201 30 


A A A AAO 








BR 


38 


y CONTINUE 




020! 22 


016700 


lol 233 




2* S 


MOV 


n^V D Da 


1 GET ADR OF CLOCK IN FOR*' ATI ON 


3113 


















3114 


0901 2fi 


132767 


000001 


161315 


311 


BITB 






3115 


A9A 4 14 


001403 








BEO 


4fl 


y N0# CONTINUE 


3116 


AnA4 »A 

30 1 Jo 
















3117 


0201 43 


AAA A A 9 

UUv 'HI * 










5S 




3 1 1 8 


















3 i 1 9 


020 ] 4 4 




161344 




411 


MOV 


^ iCT ADT . D I 
CoIAnlfnl 


J GET ADR OF MODi-iLE DOING EOP 


J J? J 


AOA 1 V A 


ftl^lAl 


36S 2 2 




St 1 


MOV 


A Mnno . 


(GET ADR OF WODULE ADDRESSES 


3121 


020l54 


01 2703 


A A An A A 






MOV 


i4#R3 


1 SET POINTER TO 1 ST HODULE TIME FNTRY 


3132 


















3133 


2 1 6 


20 1 32 






6(1 


CMP 




T HAS THE MODUJiE TIME BEEN FOU^D? 


3134 


020162 


A A t A A£ 








BGQ 


7 1 


fYE3# CONTINUE 




A9A JSrt 


Aft 97 A 1 


A A A A A A 
UUU004 






ADD 




y ADD 4 TO THE TABLE ADDRESS 


119* 






A A A A 






CMP 


• 240 t » F3 


J AT THE E*JD OF THE TABLE? 


312' 




003^71 








BST 


6$ 


J NOf KEEP SEARCHING 


3 138 


A9A 

020176 


A A A A& ? 
U H U *f 3 3 








BR 


9$ 


J SO>*ETHIMG* S WPOWG»-GET OUT 


3 1 39 


















?J 


A 4 A OA A 


Aft A n A 1 






7t 1 


ADD 




fGET ADR OF CLOCK I^FO TABLE 


3131 


020202 


01 1 .1 4 








MOV 


(k3 ) # h4 


)GET TIME OF "MODULE'S LAST PASS 


3132 


2 0204 


ft 4 7 6 7 


17 7 446 






JSR 


DIIUTVU 


> GET Aii*0 SET UP RUNTIME INFORMATION 


3133 


020210 


016 700 


! 6 1 200 






MOV 


RTI^^E* RO 


J PUT THE RUNTIME IN PEG , 


3134 




I Duty 








SUB 




jGET THE MODULE'S ELAPSED TIME 


3 1 35 


3 2 1 6 


1 r aa?« 








TSTB 




J IS IT ERROR TIME ? 














BMI 


8t 


(YESy CONTINUE 


3137 


020234 


^16713 


161164 






MOV 




jNO# UPDATE THE MODULE'S PASS TIME 


3138 


C20230 


016763 


161162 


000002 




MOV 


RTT^Xf 2CR3) 


J AND THE FXTEWDED BITS 


3139 


















3140 


020236 


133767 


000001 


16110! 




BITB 


#BIT0»TFLAG 


jSETUP FOR BKMOD ? 


3141 


020244 


001030 








BHE 


9t 


JYES» ALL DOKE, RETURN 


3142 


020346 


033777 


01 0000 


160722 




BIT 


#BIT13#»SR 


JNO, PRINT THE EOP DATA 7 


3143 


030354 


001434 








BCQ 


9t 


|N0, RETURN 


3144 


020256 


010067 


161143 




S«l 


MOV 


RO,PTZME 


fPUT THE ELAPSED TI'-'E INTO PTIME 
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314S 


0^036! 


005067 


161130 


3146 


020366 


'"04767 


177016 


3147 


020372 


001424 




3148 


0x0274 


0.11416 




3149 


02027* 


1 1676" 


1SU06 


3150 


OJ0304 


116767 


t, 6 1 1 1 


31S1 


02031? 


'. I676-' 


1 61074 


3152 


03032 } 


i 6767 


M0S7 


3153 








3154 


02132!5 


■ 'ilil 


'■'.1420 


3155 


020332 


:')02n7 





005615 
005610 
005604 

005*77 



CliR 

JSR 

PTIME 

RTIMX 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 
PTS 



RTIMX jTHIS WILL ALWAYS Bf 

PC.HMS SCONVCBT IT TO HOURS, MINUTES, AND SECONDS 

iCIVEN THE TIHE IN (SECONDS 
»0 

MINITS.MMINS jLOAD lO'S COLUMN OF MINUTES 
MINITS+1 ,MMINs+l jLOAD i'S COLUMV (if MINUTES 
SEKNDS,MSECS >LOAD lO'S COLUMN Of SECONDS 
SEKND5+1 ,MSECS*1 jLOAD I'S COLUMN OP SECONDS 



PC,RSI04 
PC 



JRESIOPK REGS, 0.4 
•RETURN 
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3156 








3157 








31SS 








31S9 








3160 


030334 


105767 


161013 


3161 


020340 


001435 




3162 


020342 


133767 


000001 


3163 


020350 


001004 




3164 


020352 


132767 


000002 


316S 


030360 


001003 




3166 








3167 


020362 


017700 


160770 


316B 


030366 


000403 




3169 


020370 


017700 


160764 


3170 








3171 


020374 


016067 


000006 


3172 


020402 


017067 


000006 


3173 


020410 


005070 


000006 


3J74 


020414 


000207 




3175 








3176 








3177 








3178 








3*79 








sieo 








3iei 








3182 


020416 


105767 


160731 


3183 


020422 


001403 




3184 


020424 


016777 


160772 


3185 


020432 


000207 




3186 








3187 








3188 








3189 








3190 


020434 


016706 


160512 


3191 


020440 


005067 


157332 


3192 


020444 


005067 


161044 


3193 


020450 


004767 


000006 


3194 


020454 


000340 




3195 


020455 


000167 


164476 



THIS POUTINE WIIiL SHUT OFF THE CLOCK (If AVJILA6LE5 TO KEEP 



161003 
160773 



161016 
161012 



Itl 
2I1 
3(1 



ISTSSL 










CALL 


VIAj JSP ' PCiCLKOFF 




ISTB 


CLOCK 


(IS THERE A CLOCK OS THE SYSTEM 


J 


BFQ 


41 


jVO, RETURN 




BITB 


IBITOiCLOCK 


jYES» THE KWll-L 7 




BNE 


It 


jYES, CONTINUE 




BITB 


iBITl, CLOCK 


jNO, HOW ABOUT THE KWll-P ? 




BNE 


3t 


»YESj CONTINUE 




MOV 


9CL0CKL# ro 


tGET THE BEGIN AD0RE5S OF CLOCK 


nQDUL£ 


SR 


3« 


•CONTINUE 




MOV 


I»CLOCKP,RO 


iGET THE BEGIN ADDRESS OF CLOCK 


MODULE 


MOV 


6(R0],CLKADR 


I SAVE THE CLOCK ADDPESS 




HOV 


?6(P0),CLKHL0 


JSAVE CONTENTS OF CLOCK CSR 




CLR 


»6(R0} 


jKILL THE CLOCK 




RTS 


PC 


jRETURN 





THIS ROUTINE WILL TURN THE CLOCK BACK ON IF IT WAS TURNED 
nrr gv CLKOFF- 

CALL VIAj JSP PCCLKON 



160766 



CLKONI TSTB CLOCK jIS THERE A CLOCK ON THE SYSTEM T 

BEQ 11 jNO, RETURN 

MOV CLKHLD,?CLKADR (RESTORE THE CLOCK STATUS 

II! RTS PC ! RETURN 



THIS IS THE CALLING SEQUENCE FOR THE CKHUNG ROUTINE 



HUNGCKl MOV 
CLR 
CLR 
JSR 
NOP 
JMP 



SPSAV,SP »PESTORE MONITOR STACK POINTER 

PSW (PROCESSOR TO STATUS 

CSTART (INDICATE NO wqquLES DOING FOP 

PC, CKHUNG (GO CHECK FOP HUNG MODULES 

ENDSVG (GO CHECK FOR OTHER MODULES RUNNING 
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3196 










1 ••*•«#«•••••••*•••«»•»*••*«•»•••*•«»•••«»••«••••»«««•«•«••«•«•«••••*••«« 


3197 










(THIS 


ROUTINE 


IS CALLED FROM THE "PASEND" OR HUNGCK POUTINE AND CHECKS 


3198 










(THAT 


ALL RUNNING MODULES HAVE COMPLETED «T LEAST ONE PASS DUPING A 


3199 










(SPECIFIED TIME INTERVAL, IF IT 


DETECTS A "HUNG" "ODULE, THE 


3200 
3201 










(MODULE 


IS DROPPED AND AN ERROR 


MESSAGE REPORTED. 


3203 


021463 


004467 


174353 




CKHUNG{ 


JSR 


R4,5AV04 


(GO SAVE PO - R4 


3303 


020466 


133''67 


000001 


160657 






BITR 


l«*IT0, CLOCK 


(USING THE KWll-I, CLOCK 7 


3204 


020474 


001 007 










BNE 




(BR IF YES 


330! 


02047S 


133767 


000003 


160647 






BITB 


•PITl, CLOCK 


[USING THE KWU-P CLOCK T 


3306 


020504 


001513 










BEQ 


7S 


(BP IF NOT - SOMETHING'S SCREWEY 77 


3207 


020506 


016702 


150646 








MOV 


CLnCKF,F2 


(GET POINTER TO TIMING INFO 


3208 


030513 


000403 










BR 


2S 


SCaNTIRUHON 


3 2D?! 


o;>.5i4 


Ct&702 


150636 








MQV 


CLnCKL,R2 


(GET POINTER TO TIMING INFO 


321 


02052D 


01 0203 






2Si 




MQV 


R2,R3 


(COPY R2 


3211 


O20S32 


063703 


000004 








ADR 


»4,R3 


»R3 POINTS TO TABLE OF PASS TIMES 


321 3 


















(IN THE "TIMER" MODULE 


3213 


020^26 


0) 770O 


076522 








MOV 


|MD0Q,P0 


(GET POINTER TO MODUf.E ADDR TABLE 


32)4 


070532 


005067 


160670 








CLR 


MAXTIM 


(ZERO LARGEST ELAPSED TIME 












3S i 






C R ; + , R 1 


(PUT MODULE BEGIN AODB IN Bl 


3216 


020540 


001442 










BFO 


4$ 


jBR IF DONE ALL MODULES 


3217 


070542 


O2S701 


160746 








CMP 


CSTART, RJ 


(IS IT THE MODULE DOING THE EOP 7 


321S 


n20"i45 


001467 










BEO 


6« 


(YES, SKIP IT 


3219 


020550 


033761 


144000 


000020 






CMP 


«144000,STATtRn 


lis IT AN lOMODR ? 


3220 


020556 


001463 










BEQ 


6$ 


(BR IF YES 


3221 


020560 


033761 


040000 


000020 






BIT 


»PIT14,STAT(R1) 


(IS IT SELECTED 77 


3222 


020566 


001457 










BEQ 


6S 


(BP IF NOT 


3223 


070570 


033761 


020000 


000020 






BIT 


«BIT13,STAT(Rn 


(WAS IT ALREADY DROPPED 7? 


3324 


02n5''6 


001053 










BNE 


6S 


(BR IF YES 


3335 


O20SO0 


005761 


000030 








TST 


STATtPl J 


(IS IT A RKMOD 7 


3325 


020604 


100050 










BPL 


61 


(YES, FORGET IT 


3237 


020606 


022761 


143000 


000020 






CMP 


•142000, STATtfll) 


(IS IT AN lOMODP 7 


3338 


020614 


001444 










BEQ 


6( 


(YES, FORGET IT 


3229 


020616 


016204 


000003 








MOV 


2(R3),R4 


(GET TIME FROM THE TIMER 


3230 


020623 


161304 










SUB 


(R3),R4 


(CALCULATE TIME SINCE LAST ENOPAS 


3231 


020624 


062701 


000004 








ADD 


»4,R3 


(POINT TO THE NEXT TIME ENTRY 


3232 


030630 


020467 


160573 








CMP 


R4, MAXTIM 


(IS THIS ELAPSED TIME BIGGER 7 


3233 


020634 


101740 










BLOS 


3< 


(NO, CONTINUE 


3234 


030636 


010105 










MOV 


R1,R5 


(YES, SAVE THE MODULE POINTER 


3235 


020640 


010467 


160563 








HOV 


P4,»"AXTIM 


(UPDATE THE MAXTIM 


3236 


020644 


000734 










BR 


3S 


(CONTINUE 


3337 


020646 


026767 


160510 


160552 


4>t 




CMP 


HNGTlM, MAXTIM 


(IS THE MODULE HUNG It 


3338 


030654 


100027 










BPL 


7» 


(IF HOI, RETURN 


3239 


030656 


010501 










MOV 


R5,R1 


(YES, INDICATE MODULE TO BE DROPPED 


3240 


020660 


004767 


000070 








JSR 


PCDRPHNG 


(GO DROP IT AND REPORT ERROR 


3241 


020664 


105767 


160134 








TSTB 


STOP 


(WAITING TO RELOCATE ? 


3243 


030670 


001431 










BEQ 


7S 


(NO, RETURN 


3343 


030672 


013700 


036522 








MOV 


(MODQ,R0 


(SET POINTER TO MODULE ADDR TABLE 


3344 


030676 


016304 


000002 








MOV 


3Cr3},R4 


(YES, GET THE PRESENT TIME 


3345 


020702 


016301 


177776 








MOV 


-2tR35,Rl 


(AND TIME EXTEIIOED BITS 


3346 


030706 


010303 










MOV 


R3,R3 


(GET POINTER TO TIME INFO 


3347 
3248 


030710 


062703 


000004 








ADD 


»4,R3 


(POINT TO PASTIME INFO 


3349 


030714 


005730 






StS 




TST 


(R0) + 


(ALL DONE 7 


3350 


030716 


001406 










BEQ 


71 


(YES, RETURN 


3351 


030730 


010423 










MOV 


R4. (R3)+ 


•UPDATE ALL MODULE PASTIMES 
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3252 


020722 


010123 






MOV 


Bl , CB3) + 


(AND TIME EXTENDED BITS 


3253 


020724 


000773 






BP 


5$ 


jCONTINUE 


325 4 


02 0726 


fi 2 7 3 


^ ft A A n d 

U U V U *» 


6 S t 


ADD 


t4« P3 


jPOINT TO NEXT PASS TIME ENTPY 


3255 


020732 


000701 






BP 


3S 


;G0 DO IT AGAIN 


3256 


020734 


004767 


174012 


7I» 


JSP 


PC,B5T04 


:G0 RESTOPE RO - R4 


3257 


020740 


105767 


160051 




TSTB 


MODCNT 


JANY MODULES STILL RUNNING ?7 


3258 


020744 


001002 






BNE 


8$ 


{BR IF YES 


3259 


O20746 


000167 


166076 




JMP 


CTRLCB 


jGO TERMINATE THIS "RUN" 


3260 


020752 


000207 




981 


RTS 


PC 


jPETURN TO CALLING ROUTINE 
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3261 








3262 








3263 








3264 








3265 








3266 








3267 








3269 


020754 


052761 


020000 


3269 


020762 


032761 


010000 


3270 


020770 


001402 




3271 


020772 


1(15367 


160024 


3272 


020776 


105367 


160013 


3273 


021002 


021201 




3274 


021 004 


001014 




3275 


021006 


105067 


160341 


3276 


021012 


010046 




3277 


021014 


004567 


166330 


1279 


021020 


022744 




3279 


021022 


022'»44 




32S0 


021024 


024230 




3281 


021026 


022744 




32B2 


021030 


000000 




3293 


021032 


012600 




1294 


021034 


000207 




3285 








3286 


021036 


021267 


160226 


3297 


021042 


001002 




3298 


021044 


105067 


157743 


3289 


021050 


004567 


172560 


1290 


021054 


026026 




3291 


021056 


004767 


176770 


1292 


021062 


010046 




3293 


021064 


004567 


166260 


1294 


021070 


022744 




3295 


021072 


022744 




1296 


021074 


026025 




3297 


021076 


026066 




3298 


02U00 


022744 




3299 


021102 


000000 




3300 


021104 


012600 




3301 


021106 


000207 




3302 









I •*••»•«*««»««•»««»«*•««•••••»««•»«««»*«*«»>*«••**••«*««»*****«««•«'*«**«« 

iTHIS ROUTINE IS CALLED FROM THE "CKHUNG" ROUTINE AT'D IT IS USEn 
|T0 DROP THE HUNG MODULE AND REPORT THE ERROR ON THF CONSOLE 
jTTY. IF THE "TIMER" MODULE IS FOUND TO BE HUNG THE« THE ROUTINE 
jDISABLES ANY FITRTHEP TIMING CHECKS USI«iG THE CLOCK 
|BY CLEARING THE BYTE TAGGED "CLOCK" 



000020 
000020 



PIS 


»RlT13,ST»T(Rn 


;SET THE DROPPED SIT 




BIT 


«BIT12,STATCPn 


•TP«ODX MODULE ?7 




BEQ 


IS 


!6R IF NOT 




DECB 


MDXCNT 


! DECREMENT COUNT OF lOMODX MODULES 




DECB 


MODCNT 


SDECREMENT COUNT OF PUNNING MODULES 




CMP 


tR2)»Bl 


SDID WE STOP THF TI«»EP MODULE 7? 




BNE 


2S 


!PP IF NOT 




CLPB 


CLOCK 


(DISABLE ALL TIMING CHECKS 




MOV 


RO,-(SP) 


iTYPEN SCREWS YOU IF YOtI DON' 


'T 


JSR 


P5,IYPEN 


)G0 RFPORT DROPPING THE TIMER MODULE 




CRCR 








CRCR 








TIMX! 








CRCR 










MOV 


(SP)+,RO 


(RESTORE RO 




RTS 


PC 


jPETURN TO "CKHUNG" 




CMP 


CR2) »BKPTR 


JDID WE DROP AN ACTIVE BKMOD 7 




BNE 


38 


)BP IF NOT 




CLBB 


BRAKE 


jCLEAR THE BRAKE 




JSR 


R5,FILLNH 


tGO GET MOD NAME SET UP 




TIHX+1 




(POINTER TO ERROR MESSAGE 




JSR 


PC.ERRTYM 


»G0 SETUP TIME INFORMATION 




MOV 


RO,-CSP) 


(TYPEN SCREWS YOU IF YOU DON' 


'T 


JSR 


P5,TYPEN 


jPEPORT THAT WE DROPPED IT 




CPCR 








CRCR 








TIMX 








TOTIM 








CRCR 










MOV 


(SP)+,RO 


(RESTORE RO 




PTS 


PC 


(RETURN TO "CKHUKG" ROUTINE 
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3303 


021 110 


016767 


1 600S6 


160050 


liPONl 


MOV 


IiPS« TPS 


3304 


021116 


016767 


160052 


160044 




MOV 


LPBfTPB 


330S 


021124 


012737 


001526 


000200 




MOV" 


#Tti5BV f ?#20u 


3306 


021132 


012737 


000200 


000202 




MOV 


»PBTV4,9»202 


3307 


021140 


000167 


1 67512 






JMP 


C0MC03 


330S 


021144 


177564 






LPWKl! 


177564 




3309 


021 1 46 


1 77566 






LPWK2I 


177566 




3310 








iGET WRITE BUFFER ADDRESS SERVH 


3311 














Rl » • C SP) 


3312 


021150 


010146 






GWBUF ■ t 




3313 


021152 


010246 








MOV 


R2 r * C SP ) 


3314 


021 154 


017601 


000004 






MOV 




3315 


021160 


010102 








MOV 


PI f P2 


3316 


021 1 62 


062701 


000074 






ADD 


ItWBUFPAf Rl 


3317 


021166 


016721 


1 60040 








URtir ■ f D 1 1 4i 
WDUr f Vt^l JT 


3318 


021 l72 


016721 


160036 






MOV 




33l9 


021176 


012111 








MOV 




3320 


021200 


021167 


, -vi j2 






CMp 


( PI ) < MXMBF 


3321 


021204 


101402 








BLOS 


1 $ 


3322 


021206 


016711 


160044 






MOV 


MXWBF, (Rl ) 


3323 


021212 


105767 


157603 




l«i 


TST8 


MOXCTR 


3324 


021216 


100410 








BMI 


2$ 


3325 


021220 


126267 


000005 


157575 




CMPB 


XFLAG(2) (WBFLG 


3326 


021226 


001404 








BEQ 


28 


3327 


021 230 


joSis; 












332S 


021234 


105367 


157561 






DECB 


MDXCTR 


3329 


021240 


012602 






2$! 


MOV 


(SP)+f R2 


3330 


021242 


012601 








MOV 


CSP)+,R1 


3331 


021244 


062716 


000002 






ADD 


t2,CSP) 


3332 


021250 


105 367 


157561 






DFCB 


ROT 


3333 


021254 


100005 








EPL 


3$ 


3334 


021256 


116767 


160055 


157551 




MOVa 


PDTNfROT 


3335 


021264 


004767 


175014 






JSP 


PCROTBUF 


3336 


021 270 


000002 






3Si 


BTI 




3337 
















3338 

















SEO 0115 



iSAVE REGISTER 

sGET ADDRESS OF MODULE 



jliOAD ADDRESS OF WRITE BUFFER 

jtOAD EXTENDED ADDRESS BITS 

;HOVE SIZE REQUESTED INTO SIZE ALLOWED 

! REQUESTED SIZE 0K7 

jYES- BRANCH 

}N0- SET ALLOWED SIZE 

jIF NOT YET SETUP, SKIP 



;IF SAME, HAS ALREAE 



aSEC 



JHIS SANK 



-Tc' wn^, SrT FLAG TO SAME 
IaND count DOWN MODULES 
fRESTOPE REGISTERS 

•SETUP RETURN PC 



•GO CHANGE WRITE BUFFER ADDRESS 
•RETURN 
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3339 








(ROUTINE TO GET 


IP BIT PHYSICAL 


ADDRESS OF VIRTUAL ADDRESS 


3340 








(TOP 2 BITS ARE 


ALLIGNEP TO POSITIONS 4 AND 5 


3341 








(ASSUMES KERNEL 


I-SPACE ADDRESS 


IN CURRENT MAP 


3342 














3343 


021272 


010146 




GETPA,( MOV 


P1,-(SP) 


(SAVE REGISTERS 


3344 


021274 


010246 




MOV 


R7,-CSP) 




3345 


021276 


017601 


000004 


MOV 


P4(SP),R1 


(GET TABLE ADDRESS 


3346 


071 302 


012111 




MOV 


(Pn + i CRl) 


(VA INTO PA LOC IN TABLE 


3347 


n7i3n4 


105767 


157774 


T5TR 


KTPRES 


(KTIl IV !ISE7 


3 348 


021 310 


001003 




BWE 


1 S 


(YES- BRANCH 


3349 


071312 


005061 


000002 


CLR 


2f Rl) 


(NO- CLFAR EA BITS 


3350 


071316 


000436 




BR 


38 


(AND EXIT 


3351 














3352 


021320 


000311 




Hi SWAB 


tPl) 




3353 


071 322 


00621 1 




ASP 


(PI) 




3354 


021 324 


0062U 




ASP 


(Bl) 




3355 


071 326 


00621 1 




ASR 


(Bl) 




3356 


071 330 


006211 




ASR 


(Rl ) 




3357 


021332 


042711 


177761 


PIC 


•177761, (Rl 5 


(PAGE BITS ALLIGNED 


3358 


021 336 


062711 


172340 


ADD 


#KIPAR0, (PI) 


(KIPAR ADDRESS FORMED 


3359 


021 342 


017111 


000000 


KOV 


aCBl)» (Bl) 


(GET CONTEMS 


3360 


021 346 


017702 


000006 


MOV 


»6,R2 


(SHIFT 6 LEFT 


3361 


021352 


006311 




28: ASL 


(Bl) 




3362 


021354 


006161 


000002 


ROL 


2(R1) 




3363 


021360 


005302 




DEC 


R2 




3364 


021362 


001373 




BME 


2S 




3365 


021364 


014102 




MOV 


-(R1),R2 


(GET VA 


3366 


021 366 


042702 


160000 


BIC 


#160000, R2 


(CLEAR PAGE BITS 


3367 


021 372 


005721 




TST 


(P1 ) + 




3368 


021374 


060221 




ADO 


R2, (Rl)+ 


(CREATE 16 BIT PA 


3369 


021376 


005511 




ADC 


(R1 ) 




3370 


021400 


042711 


177774 


BIC 


1177774, (Rl) 


(ALLIGN BITS IN POSITIONS ' 


337 1 


021404 


00631 1 




ASL 


(Bl) 




3372 


021406 


006311 




ASL 


(PI ) 




3373 


021410 


006311 




ASL 


(Rl) 




3374 


021412 


006311 




ASL 


f Rl ) 




3375 


021414 


012602 




38 i MOV 


(SP)+,R2 


(RESTORE REGISTERS 


3376 


021416 


012601 




MOV 


(SP)+,R1 




3377 


O21420 


062716 


000002 


ADD 


•7, (SP) 




3378 


021424 


000002 




BTI 




(RETURN 


1379 














3380 















DXOABM.PH 21 


-APB-77 


12i42 


3381 








3382 








3383 








3384 


021426 


010146 




3385 


021430 


017601 


000002 


3386 


021434 


012161 


000002 


3387 


021440 


011161 


000004 






006261 


000004 


3389 


021450 


006261 


000004 


3390 


021454 


00626 1 


000004 


3391 


021460 


006261 


000004 


3392 


021464 


012601 




3393 


021466 


062716 


000002 


339« 


0214T2 


000002 
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iTHIS ROUTINE ALLOWS RH70 DEVICES TO BE PUN WITH THE STANDARD WOKITOR, 



MAP22,i MOV 
MOV 
MOV 
MOV 
ASP 
ASR 
A5R 
ASR 
MOV 
ADD 
PTI 



Rl.-CSP) 
»2(SP),R1 
CRl) + .2CRn 
(Rl)»4CRn 

4(Rn 
4(Rn 

4CR1) 
4CRn 
(SP)+.R1 
*2.(SP) 



jSAVE REG. 1 

;GET THE 1ST ADDRESS OF THE TABLE 
iGIVE BACK THE SAME 18 BITS 
jTHAT WERE GIVEN TO BE CONVERTED 
> SHIFT BACK FRO" POSITIONS 4 AND 5 
ITO POSITIONS AND I 



i RESTORE RFG. 1 

iSKIP OVER VA TO GET THE RETURN PC 
jRETURN 



QABM DEC/Xll STANDARD MONITOR 
DX0ABM.P11 }i.«pR.77 12142 

3395 
3396 
3397 
3399 
3399 
3400 
1401 
3402 
3403 

3404 021474 105767 157604 

3405 021500 001001 

3406 021502 000207 

3407 021504 016700 157712 
3409 021510 016705 157704 

3409 021514 016703 157524 

3410 021520 0U«n4 

3411 021522 C->5037 1 77572 

3412 021526 .4767 170416 

3413 021532 052737 OOOOOl 

3414 021540 01006' 157656 

3415 021544 010567 157650 

3416 021550 010367 157470 
3417 

341R "21554 01046? 1^7472 

3419 C2156C 105067 157561 

3420 021564 005077 157372 

3421 021570 004767 173172 

3422 021574 105067 157230 

3423 021600 012737 077406 

3424 021606 012737 077406 

3425 021614 105767 157505 

3426 021620 001406 

3427 021622 100067 
3428 

3429 021624 016767 157416 

3430 021632 105067 157467 

3431 02J636 0267S7 157402 

3432 021644 001004 

3433 021646 105167 157473 

3434 021S52 000167 000534 

3435 021656 016767 157362 

3436 021664 026767 157356 

3437 021672 101012 

3438 021674 016737 157342 

3439 021702 016737 157340 

3440 021710 112767 OOOOOl 

3441 021716 000450 

3442 021720 016737 157300 

3443 021726 032737 000177 

3444 021734 0C1OP3 

3445 021735 J«27'«'' ff'ijf? 

3446 021744 ~^'2T.: '-.vU^ 

3447 021752 0U727 17J344 

3448 021760 066737 1S7256 

3449 02176t 066737 157254 
8450 021774 lOSOC? 157330 
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I MOVE CODE TO NFW OFFSET, AFTEP CHECKING FOB CODE ALREADY IN 
iMIDST OF BEING MOVED. WAP KTl 1 TO NEW CODE A^D RETURN TO IT. 
I ALL VALUES USED EXCEPT OFFSTO ARE ASSUMED CORRECT IN BANK COPY 
!»»«» STACK POINTER IS REPOSITIONED TO SPBQT BEFORE RETURNING 
(MVCODS ENTRY POP'T IS USED TO LEAVF OFFSTT AS PRFVIOUSLY SETUP- 
|NOTE, HOWEVER, THAT MAPRET MUST BE LOADED WITH THE RETURN ADDRESS 
jBEFORE CALLING. MVCODS SHOULD NOT BE CALLED UNLESS KTPRES IS SET 
jNOTE THAI «VCODE DISABLES THE TTY KEYBOARD 





MVCODEi 


TSTB 


KTPRES 




)KT11 IN USE? 






BNE 


.♦4 




jYES- BRANCH 






RTS 


PC 




;W0- RETURN (««OVING NOT ALLOWED W/0 Kill) 






MOV 


CLKHLD, 


PO 


jSAVE CONTEMTS OF CIOCK CSP 






MOV 


CLKADR, 


P5 


jSAVE ADR OF CLOCf CSR 






MOV 


OFFSTD, 


P3 


:SAVE DESTINATION OFFSET 






MOV 


(SP1,R4 


SSAVE RETURN PC 






CLR 


9«S5P0 




;TUPN OFF KTll 






JSP 


PC.KTSETO 


,«AP DOWN TO BANK 


177572 




BIS 


*BITO,illSSRO 


J TURN ON KTll 






MOV 


RO, CLKHLD 


jSTOrE CONTENTS OF CLOCK CSR IN BANit o 






MOV 


R5, CLKADR 


(STORE ADR OF CSP IN BANK 






MOV 


R3, OFFSTD 


(SET up DESTINATION OFFSET IN BANK 












•copy OF POINTER 






MOV 


P4,WAPPST 


; SETUP RETURN PC 






CLPB 


MOVFLG 




fCLEAR FLAG FOR 'ROTATED' MESSAGE 




MVCODSl 


CLR 


»TKS 




;SHUT OUT TTY 






JSR 


PCCLRQUS 






MVCODl 1 


CLRB 


XFRFLG 






172304 




MOV 


«77406, 


•»KIPDR2 




172306 




MOV 


•77406, 


9IKIPDR3 








TSTB 


MOVING 




jCQDE PARTIALLY RELOCATED? 






BEQ 


11 




;N0- BRANCH 






BPL 


41 




5 IF PARTIALLY RELOCATED, BRANCH TO 












jFINISH RELOCATION 


157410 




MOV 


OFFSTM, 


i OFFSET 


JIF FLAG NEGATIVE, INDICATES MOVE IS 






CLRB 


MOVING 




jDONE BUT POINTERS MOT YET RESTORED 


157376 


111 


CMp 


OFFSTD, 


, OFFSET 








BNE 


ns 










COMB 


MOVFLG 




;SET FLAG NOT TO PRINT MESSAGE 






JMP 


MVHAP 






157362 


lilt 


MOV 


OFFSTD, 


OFFSTM 


jPUT DESTINATION OFFSET INTO SAVE LOCATION 


157350 




CMP 


OFFSTM, 


OFFSET 


,T0 PREVENT LOSING VALUE IN MIDST OF MOVING 






BHI 


21 




J IF MOVING CODE UP, BRANCH 


172344 




MOV 


OFFSET, 


»tKIPAR2 


lIF MOVING DOWN, SETUP TO 


172346 




MOV 


OFFSTM, 


•IKIPAR3 


JDO LOWEST BANK FIPST 


157412 




HOVB 


»1,MVD0MN 








BR 


MVC0D2 






172344 


2li 


MOV 


LC0P12, 


»*KIPAR2 


jIF MOVING UP, DO HIGHEST BANK FIRST 


172344 




BIT 


I177,»IKIPAR2 








BNE 


31 






572344 




SUB 


li200,PtKIPAR2 






31' 


BIC 


*1T7,(I«KIPAR2 


(IF 4K BOUNDARY, DROP TO START OF LAST BANK 


1.72346 




MOV 


9*KIPAP2,8IKIPAR3 


172344 




ADD 


OFFSET, 


8IKIPAR2 


172346 




ADD 


OFFSTM, 


,»4KIPAR3 








CLRB 


MVDOWN 







QABH DeC/XU STJkVDlBD HOKITOB 
DXOABM.PIt 21>APR-7? 13142 
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SEQ 0U9 



34S1 


022000 


000417 








BP 


MVC0D2 


IGO TO RCj-^TN!; THAT ACTUALLY MOVES 


54S3 




4 J 276? 


000001 


157020 


41 ! 


Mnvn 


«1 .xrpirLC 


iTNDirATE A!iCTHER Pjr;i rrU.fT SH i>iA3. 


3453 


022010 


016737 


157234 


172344 




HOV 


M0VBNK,»|KIPAP2 


»T0 DO DESIRED MOVE AFtER CLEANING 


3454 


022016 


016737 


157226 


172346 




MOV 


MOVBNKif IKIPAR3 


JUP LAST ONE 


345S 


022024 


166737 


157212 


172346 




SUB 


OFFSET, 9IICIPAP3 




3456 


022032 


066737 


157210 


172346 




ADD 


OrrSTH, IIKIPAP3 




3457 


022040 


105067 


157265 




HVC0D2I 


CLPB 


RETPY 




3458 


022044 


013767 


172344 


157176 




HQV 


9*KIPAR2,M0V6NK 


ISAVE CURRENT BANK BEING MOVED 


3459 


022052 


112767 


OOOOOi 


157345 




NOVB 


»1, MOVING 


> INDICATE MOVE IN PpOCESS 


3460 


022060 


012701 


040000 




MVBTRYf 


MOV 


t40000,Pl 




3461 


022064 


012702 


060000 






MOV 


(60000, R2 




3462 


0220'0 


005737 


172346 






TST 


»*KIPAR3 




3463 


022074 


001013 








BNE 


it 




3464 


022076 


012122 






1(1 


MOV 


(P1)+,(R2)+ 


jCOPY VECTOR AREA DOWN TO BANK 


3465 


022100 


032702 


001000 






BIT 


(1000, R2 




3466 


022104 


001774 








BEG 


!( 




3467 


022106 


013737 


041270 


0612''0 




MOV 


»(BKPTR+40000,e»BKPTP+60000 jCOPY BKPTB TO 


3468 


0221 14 


012701 


055000 






MOV 


(55000 , Rl 




3469 


022120 


012702 


075000 






MOV 


(75000, R3 




3470 


022124 


012122 






2tt 


MOV 


(Pl) + > (R2)4' 


tMOVE CODE 


3471 


022126 


032701 


017777 






BIT 


(17777, Rl 




3472 


022132 


001374 








BNE 


2$ 




3473 


022134 


012701 


040000 






MOV 


(40000, PI 




3474 


022140 


012702 


060000 






MOV 


(60000«R2 




3475 


022144 


005737 


172346 






TST 


8fKIPAR3 




3476 


022150 


001014 








BNE 


5S 




3477 


022152 


021112 






3ll 


CMP 


(Rl ) , CR2) 




3478 


022154 


001403 








BEQ 


4( 




3479 


022156 


000167 


000402 






JMP 


MVEPR 




3480 


022162 


022122 






4Si 


CMP 


(P1]+,CR2)+ 




3481 


022164 


032702 


001000 






BIT 


(1000, R2 




3462 


022170 


001770 








BEQ 


31 




3483 


022172 


012701 


055000 






MOV 


(55000, Rl 




3484 


022176 


012702 


075000 






MOV 


(75000, P2 




34flS 


023202 


021112 






sti 


CMP 


(Pl),(R2) 


»NEW copy OK? 


3486 


022204 


001402 








BEQ 


6» 


;yES, CONTINUE 


3487 


022206 


000167 


000352 






JMP 


MVERP 


jWO- BRANCH TO REPOPT ERROR 


3488 


022212 


022122 






6(1 


CMP 


(Rl)+,(R2)+ 




3489 


022214 


032701 


017777 






BIT 


(17777, Rl 




3490 


022220 


001370 








BNE 


51 




3491 


022222 


026767 


157020 


157012 




CMP 


OFFSTM, OFFSET 




3492 


022230 


101413 








Sl.DS 


?« 




3493 


022232 


162737 


000200 


172344 




SUB 


(200,(>(KIPAR2 




3494 


022240 


162737 


000200 


172346 




Sl'B 


(200,»(KIPAR3 




3495 


022246 


023767 


172346 


156772 




CMP 


9IKIPAR3, OFFSTM 




3496 


022254 


103271 








BHIS 


MVC0D2 




3497 


022256 


000415 








BP 


HVC0D3 




3498 


022260 


062737 


000200 


172344 


7(1 


ADO 


(200r»(KlPAR2 




3499 


022266 


162737 


000200 


172346 




AOD 


•200,»(KIPAR3 




1500 


022274 


016701 


1S6746 






HOV 


OFFSTM, Rl 




3501 


022300 


066701 


156720 






ADD 


LC0P12,P1 




3502 


022304 


023701 


172346 






CMP 


»(KIPAB3,P1 




1503 


022110 


103653 








BLO 


MVC0D3 




3504 


022312 


112767 




157005 




wnve 


MOVING 


? INDICATE "OVE DON'E BUT POINTERS 


3505 


022320 


016767 


156722 


156714 




MOV 


OFFSTM, OFFSET 


JNOT YET PESTORED 


1506 


022326 


01*737 


156710 


172344 




MOV 


OFFSET, S»KIPAfi2 





lABM 1 


DEC/Xll 


STANDARD 


MONITOR 


MACY11 


27(10061 


23-APR-77 OOlll PAGE 


118 


X0ABM.P1 1 


2t-APR-77 


12(42 












3507 


022334 


01 2701 


001242 






MOV 


(OFFSET, Rl 




3S08 


022340 


01)2701 


040000 






ADD 


(40000, Rl 




3509 


022344 


01671 1 


156672 






MOV 


OFFSET, (Rl ) 


»SET OFFSET VALUE INTO NEW COPY 


3510 


022150 


105067 


156751 






CLPB 


MOVING 




3511 


022154 


105767 


156750 






TSTB 


MVDOWN 




3512 


022360 


001402 








8E0 


MVMSG 




3513 


022162 


004767 


002304 






JSP 


PC,LOADWC 


jRELOAD WORST CASE FROM LC0R12+0FFSET 


3514 
















;I0 HC0P12 


3515 


022166 


005067 


156466 




MVMSG) 


CLP 


lOBKID 




3516 


022372 


112767 


000001 


156413 




MOVB 


(1 .BRAKE 




3517 


022400 


105767 


156424 






TSTB 


XFRFLG 


JFINAL MOVE NOT YET DONE? 


3518 


072404 


001 402 








BEQ 


MVMAP 




1519 


022406 


000167 


177162 






JMP 


MVCODl 


»YES- DO DESIRED MOVE NOW THAT PREVIOUS 


















?-M*S CtEillBO VP 


1571 


022412 


016704 


15S614 




MVWAPi 


MHV 


M»PPET,P4 


?GET PETURN PC 


1522 


022416 


016701 


156620 






MOV 


OFFSET, Rl 


;GCT NEW OFFSET 


3523 


022422 


062701 


000200 






ADD 


«200,R1 




3524 


022426 


012702 


172302 






MOV 


(KIPDR1,R2 




1525 


022432 


012703 


000006 






MOV 


(e,R3 




3526 


022436 


012712 


077406 




1*1 


MOV 


(77406, CB3) 


;SeT POP TO 4K,RH,UP 


3527 


023442 


010162 


000040 






MOV 


P1,40(P3) 


sMAp PAR TO DESIRED 4K 


3528 


022446 


062702 


000002 






ADD 


(2,P3 


SMOVE POINTER TO NEXT PAGE 


1529 


022452 


062701 


000200 






ADD 


(200, Rl 


sCHANGE TO NEXT 4F VALUE 


1510 


022456 


005303 








DEC 


P3 




1531 


022460 


001166 








BNE 


1< 




3532 


022462 


1 16701 


156657 






MOVB 


MOVFLG.Rl 


iSAVE THE FLAG 


1513 


072466 


016737 


156550 


172140 




MOV 


OFFSET, »»KIPAR0 


{CHANGE TO NEW CODE 


1514 


022474 


012706 


027212 






MOV 


(SPBOT.SP 




1515 


027500 


C05037 


177776 






CLP 


#(PSM 




3536 


022504 


105701 








TSTB 


Rl 


JOK TO PRINT MESSAGE 7 


3537 


022506 


100425 








BMI 


21 


JNO, CONTINUE 


151P 


02251Q 


012777 


001000 


15646C 




BIT 


(BIT9,»SP 


jYES, BUT IS IT INHIBITED T 


3519 


022516 


001021 








BNE 


2t 


(YES, CONTINUE 


1540 


022520 


104406 


024446 






MSGt.PELMSG 


J "CODE RELOCATED TO" 


3541 


022524 


004567 


172142 






JSR 


R5,T018S 


iGET 18 BIT ADDRESS 


3542 


022530 


001242 








OFFSET 






1543 


022532 


001206 








MEMPA 






1544 


022534 


001210 








MCHEA 






1545 


022536 


016746 


156444 






MOV 


MEMPA, -CSP] 




1546 


022542 


016746 


156442 






MOV 


MEMEA,-(SP5 




1547 


022546 


004767 


170564 






JSR 


PC.ITOAX 


I TYPE ADDRESS 


3548 


022552 


012746 


022772 






HOV 


(ACRLF,-CSP) 




1549 


022556 


004767 


164604 






JSP 


PC, TYPE 




3550 


022562 


010407 






2(i 


MOV 


P4,PC 


I RETURN FROM MVCODE CALL 


3551 


















3552 


















3553 


022564 


105067 


156270 




MVERRi 


CLRB 


lOBKID 




3554 


022570 


112767 


000001 


156315 




MOVB 


(1, BRAKE 




3555 


022576 


010267 


156402 






MOV 


R2,MEMVA 




3556 


022602 


104406 


034430 






MSG|,RELERR 


1 "RELOCATION ERROR AT" 


3557 


022606 


104413 


001204 






GETPAI, 


MEMVA 




3558 


022612 


016746 


156370 






MOV 


MEMPA, 




3559 


022616 


016746 


156366 






MOV 


MEMEA,-(SP] 




3560 


023622 


004767 


170510 






JSR 


PC.ITOAX 


ITYPE ADDRESS 


3561 


022626 


0127*6 


02J773 






MOV 


(ACRLr,-C8P) 




3562 


032632 


004767 


164530 






JSR 


PC, TYPE 





SEQ 0120 
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SEfi 9121 



3563 022636 10S267 1S6467 

3564 022642 126727 1S6463 

3565 O226S0 O02O0I 

3566 022652 000167 177202 

3567 022656 104406 0S4100 

3568 022662 104406 023746 

3569 022666 000000 

3570 022670 000776 



500003 



INCB RETRY 

CWPB RETRY, »3 

BGE 61 

JMp MVRTRY 

MSdiFATAL 

MSG».HIT 

HALT 

BR 71 



I "UNABLE TO RELOCATE- FATAL, RELOAD, 
t"HALT" 



QABM DEC/XU STANDARD MONITOR 
DXOABM.Pll 21.SPR-77 t2i42 



3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3630 
3621 
3632 
3633 
3634 
3635 
3636 
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J PURE MESSAGES 



StO 0122 



023672 
022700 
022706 
023714 
033732 
033730 
032736 
023737 
033742 
023744 
033747 
023753 
033760 
033766 

033770 
032774 
033002 
023010 
023016 
033024 
023033 
033040 
023046 
023054 
033063 
033070 
033076 
033104 
023107 
033114 
033133 
033130 
033131 
033136 
023144 
023152 
023160 
033166 
023174 
023303 
033303 
023310 
023316 
023334 
033333 
023340 
023241 
023346 
023354 
033363 
023270 
023376 
023304 



043045 
030461 
050530 
020040 
040504 
0*7117 
000 
045 
000045 
032445 
040 
045 
052533 
000131 
032773 
041536 
022445 
042525 
043123 
026455 
052133 
040522 
022445 
046101 
040533 
046114 
051440 
030115 
033510 
045 
044514 
046515 
000 
045 
047515 
036455 
030131 
046134 
030133 
053111 
000 
045 
040533 
047116 
030117 
044040 
000 
045 
054501 
043515 
046440 
046505 
053515 
03010S 



041505 


054057 


TITLEt 


.ASCIZ 


•*DEC/X11. DXOAB-M STANnjPD >inNiT1R' 


020056 


043040 








041101 


046455 








053133 


047101 








043133 


046440 








053111 


051117 








000056 




DOTt 


.ASCXZ 








CBl 


.ASCIZ 




000 




CRCRJ 


.ASCIZ 




052101 


000 


AATi 


.ASCIZ 


• 4T' 


052522 


020116 


SUMARYi 


.ASCIZ 


•%PUN SUMMARY* 


046515 


051101 














ftrSLEB,*2 


000045 




CTRLCl 


.ASCIZ 


"C%' 


050440 


043535 


OOVRELi 


.ASCIZ 


•%% QUEUE OVERFLOW SYSTEM CRASH!' 


047440 


043536 








047514 


030137 








020055 


054533 








046505 


041440 








044133 


000045 








044440 


053116 


INVTPPt 


.ASCIZ 


'%* INVALID TRAP CALL --- SYSTEM CRASH%' 


043111 


053040 








030130 


040503 








036440 


036455 








051531 


043534 








051103 


051501 








000 










047111 


040536 


INVCMDi 


.ASCIZ 


•%INVALID COMMAND!' 


030104 


047503 








047101 


033504 








053533 


030116 


INVCDll 


.ASCIZ 


'%RUN MODE — ONLY A CNTL C IS PERMITTED!' 


043504 


036440 








047440 


046116 








030101 


047103 








041440 


044440 








043530 


046533 








043534 


032504 








051130 


043517 


INVCD2i 


.ASCIZ 


'IPROGRAM CANNOT GO THAT HIGH!' 


030115 


040503 








053117 


043440 








044134 


053101 








043511 


033510 








047516 


053440 


INVCD3i 


.ASCIZ 


'%N0 WAYl MEMORY "ANAGEMENT MUST BE IN USE% 


030041 


030040 








047515 


054533 








047101 


043501 








047105 


030134 








053133 


041040 








047111 


053440 
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3627 


02331 2 


042523 


000045 










3626 


023316 


047045 


0201 17 


047515 


IHVCD4i 


.ASCIZ 


'%N0 modules SEliECTED%' 


















3630 


023332 


042523 


042514 


052103 








3631 


023340 


042105 


000045 










3632 


02 3 344 


044445 


053116 


046101 


INVADBl 


.iSClZ 


'tINVALID ADOP/OATAt' 


3633 


023352 


042111 


040440 


042104 








3634 


023360 


027522 


040504 


040524 








363S 


023166 


000045 












3636 


023370 


046445 


0421 17 


046125 


INVNAMl 


.ASCIZ 


'%MODULE NAME NOT FOUMO*' 


3637 


023376 


020105 


040516 


042515 








363'! 


023404 


047040 


0521 17 


043040 








3639 


023412 


052517 


042116 


000045 








3640 


023420 


020045 


020040 


045050 


SVSERl ! 


.ASCIZ 


'% CJA«,5BV|PBAtC!U,FLG/INT,'»H&«I,COATA»CTSG/CPa3% 


3641 


023426 


046501 


051454 


053122 








36 42 


023434 


050054 


040502 


041454 








3643 


023442 


040525 












3644 


023450 


044457 


0521i6 


053454 








364S 


023456 


040510 


044515 


041454 








3646 


023464 


040504 


040524 


041454 








3647 


023472 


040524 


027507 


050103 








364S 


023500 


024525 


020045 


000 








3649 


023505 


045 


041 1 S S 


043125 


KBOFZju I 


ASCIZ 


'%KBur OrLO' 


36!Q 


033512 


047440 


046106 


000117 










023526 










. iSC I Z 


'SiSTD EXERCISE LOAD MEDIUM YOU MUST CLEAR LQC 40%* 


36'S2 


042530 


041522 


051511 








36f 3 


023534 


0201 05 


047514 


042101 








36S4 


023542 


046440 


0421 05 


052511 








365S 


023550 


0201 15 


047531 


020125 








3656 


023556 


052515 


0521 23 


041440 








36^7 


023564 


042514 


05 1101 


046040 








3658 


023572 


041517 


032040 


022460 








3659 


023600 


000 












3660 


023601 


045 


054523 


020123 


SYSERPi 


.ASCIZ 


'%SYS ERR CVlRT,PCiPSW»SP,VECT5 J 


366 1 


023606 


051 105 


020122 


053050 








3662 


023614 


051 1 1 1 


027124 


041520 








3663 


023622 


050054 


053523 


051454 








3664 


0236 30 


026120 


042526 


052103 








3665 


023636 


035051 


020040 


000 








3666 


023643 


045 


040503 


044103 


CONN) 


.ASCIZ 


•*CACHE ENABLED' 


3667 


023650 


020105 


047105 


041101 








366*) 


023656 


042514 


000104 










3669 


023662 


04i 445 


041501 


042510 




• A 3C I Z 


^%CACHE DISABLED* 


3670 


023670 


042040 


051511 


041101 








367 1 


023676 


04251 4 


000104 










3677 


023702 


022445 


047520 


042527 


PWRfAIt 


.ASCIZ 


'%%POWEF FA1LURE%*' 


3673 


023710 


020122 


040506 


0461 1 1 








3674 


023716 


051 125 


022505 


000045 








3675 


OJ3724 


051045 


047125 


046440 


MEMCHGl 


.ASCIZ 


•»PUN MFVORy TESTS' 


3676 


023732 


046505 


051 117 


020131 








3677 


023740 


042524 


052123 


000123 








3678 


023746 


044045 


046101 


022524 


HLTl 


.ASCIZ 


•%HALT%*' 


3679 


123754 


000045 






PENABtii 






3680 


023756 


050045 


051101 


052111 


.ASCIZ 


'iPARITY ENABLED' 


3691 


023764 


020131 


047105 


041101 








36(12 


023772 


042514 


000104 
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36B3 


073776 


047045 


0201 17 


052113 


NOKTl 


.ASCIZ 


'%N0 Kill • 


3684 


024004 


030461 


000 










3685 


024007 


045 


052113 


030461 


KTDISl 


.ASCIZ 


'%KT11 OFF' 


3686 


024014 


047440 


043106 


000 








3687 


024021 


045 


047516 


050040 


NOPARl 


. ASCIZ 


'%N0 PARITY' 


3688 


024026 


051 101 


052111 


000131 








3689 


024034 


050045 


051101 


052111 


PAOFFj 


.ASCIZ 


'%PARITY OFF' 


3690 


024042 


020131 


043117 


000106 








3691 


074050 


022445 


052113 


030461 


KTFATLt 


.ASCIZ 


•%1KT11 ABORT FATAL*' 


3692 


024056 


040440 


047502 


052122 








3693 


074064 


026440 


026455 


043040 








3694 


024072 


052101 


046101 


000045 








3695 


024100 


052445 


040516 


046102 


FATAL) 


.ASCIZ 


'tUNABLE TO RELOCATE- FATAL. RELOAD %' 


3696 


P241P.6 


020105 


047524 


051040 








3697 


024li* 


046105 


4'V5l7 


n'sitoi 








3698 


024122 


026505 


043040 


052101 








3699 


0241 30 


046101 


020056 


042522 








3700 


0741 36 


047514 


042101 


022440 








3711 


0241 44 


000 












3702 


024145 


045 


022445 


025045 


SYSBADt 


.ASCIZ 


'%%%%••• TOD MANY SYS ERRORS --- EXERCISE ABORTED*!' 


3703 


024152 




052040 










3704 


024160 


046440 


047101 


020131 








3705 


024166 


054523 


020123 


051105 








3706 


024174 


047522 


051522 


026440 








3707 


024702 


026455 


042440 


042530 








3708 


024210 


041522 


051511 


020105 








3709 


024216 


041101 


051117 


042524 








371 n 


024224 


022504 


000045 










3711 


024330 


041445 


047514 


045503 


IIMXl 1 


.ASCIZ 


'*CLOCK MODULE DROPPED, ALL TTMIKS FUNCTIONS DISABLED. % 


3712 


024736 


046440 


042117 


046125 








3713 


024244 


020105 


051104 


050117 








3714 


024252 


042520 


027104 


040440 








3715 


O24260 


0461 14 


052040 


046511 








3716 


024266 


047111 


020107 


052506 








3717 


024274 


041516 


044524 


047117 








3718 


024302 


020123 


044504 


040523 








3719 


024310 


04* 102 


042105 


022456 








3720 


024316 


000 
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REQ QI2S 



37?t 


024317 


04S 


047045 


0201 17 


NOCLKl 


. A 5C I Z 


3733 


034334 


054523 


053133 


046S05 






3733 


07433? 


4 1 4 4 


047514 


045503 






3734 


034340 


026455 


051055 


05150S 






3735 


034346 


040534 


053133 


040040 






3726 


0343S4 


030440 


030060 


030060 






3727 


024363 


051117 


044040 


0531 1 1 






3738 


034370 


041 440 


047117 


044524 






3729 


034376 


053516 


030105 


047506 






3730 


034404 


030133 


047516 


041440 






3731 


034413 


047514 


045503 


000045 






3733 


034430 


051045 


046105 


041517 


RELBPRt 


.ASCIZ 


3733 


034476 


052101 


047511 


030116 






3734 


034434 


051105 


047523 


030122 






3735 


034442 


053101 


000040 








3736 


034446 


051045 


046105 


041517 


REliKSGt 


•tsciz 


3737 


024454 


052101 


043105 


052040 






3738 


034463 


020117 


000 








3739 


034465 


045 


054533 


053133 


syssizi 


• ASC iZ 


3740 


034473 


046505 


051440 


055111 






3741 


034500 


035105 


000 








3742 


024503 


113 


000 




KAYt 


.ASCIZ 


3743 


034505 


045 


051 127 


0521 1 1 


PUi &r'D 1 


.ASCIZ 


3744 


024513 


020105 


052502 


0431 06 






3745 


034530 


051105 


051040 


052117 






3746 


024536 


052101 


047511 


020116 






3747 


034534 


0471 05 


041101 


043514 






3748 


024542 


027104 


051040 


047101 






3749 


024550 


042507 


020072 


000 






3750 














3751 


n?4t,55 


045 


051137 


0521 1 1 


ROTDISl 


, * SC I Z 


3753 


02'i562 


020105 


052502 


043106 






3753 


024570 


051105 


051040 


052117 






3754 


024576 


053101 


047511 


0201 16 






3755 


024604 


044504 


040523 


046102 






3756 


024612 


042105 


000 








3757 


024615 


045 


053113 


030461 


KTONMi 


•ASCIZ 


3758 


024633 


043440 


040516 


046102 






3759 


024630 


043105 


000 








3760 


034633 






053111 


NOSHR 1 


A8C I Z 


3761 


024640 


044103 


051040 


043505 






3763 


034646 


051511 


043524 


020122 






3763 


024654 


052101 


046040 


041517 






3764 


024662 


030056 


030061 


032060 






3765 


024670 


000045 










3766 












.EVEN 



•%%N0 SYSTEM CLOCK- — RESTART « IQOO OR HIT CONTINUE TOR NO C1.0CK%'' 



'%PEI,OCATION ERROR AT 



•%PELOCATED TO 



'*S¥STE« SIZE»' 



•tWBITE BUFFER ROTATION ENABLED, PANGEl 



'%WPITE BUFFER POTATION DISABLED' 



•*KT11 ENABLED* 



•%SW1TCH REGISTER AT hOC. 1004*' 
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3767 










iBOUTIVr TO LOAD WORST CASE 


UNIBUS PATTERN IN ALL FPEF MEMORY 


3768 










LOADHCi 










3769 


024672 


0044«7 


170042 




JSP 


R4|,SAV04 






3770 


0246''*' 


|'i67n2 


154322 






MOV 


LCOR13,P3 




jSETUP 13 PIT STARITNG ADDRESS 


3771 


074707 


c^67rt 


154334 






ADD 


OFFSET, P2 






3772 


02»"06 


■3767"; 


154314 






CHP 


HC0P13,R3 




J ANY MEMORY TO !.OAD 7 


3773 




r.nj425 








BEO 


81 




(NO, GET OUT 


3774 


024' 1 ' 


^(6700 


iS4300 






MOV 


LOCOPE.PO 




jIF NO KTll, PO WILL CONTAIN PHYSICAL ADDRESS 


3775 


0247 in 


012704 


025006 




3ii 


MOV 


•WCASErP4 




I LOAD ADDRESS OF WORST CASE DATA TABLE 


3776 


024724 


105767 


154354 




3«l 


TSTB 


KTPRE5 




jUSF KT117 


3777 


024730 


001404 








BEO 


5S 




jND- BRANCH 


3778 


024732 


012700 


040000 




411 


MOV 


»40000,P0 




jSET VIRTUAL ADDPESS TO THE START OF PAGE 2 


3779 


024736 


010267 


145402 






MOV 


R2,KIPAP2 




JMAP PAGE 3 TD PHYSICAL ADDRESS 


3780 


02474? 


012703 


000400 




511 


MOV 


•256. .P3 




SSET UP COUNTER 


3781 


n2471« 


'11 •420 






611 


HOV 


(R4),(R0)* 




;LOAD DATA 


3782 


0247S 


01 3(!1 








DEC 


R3 






3783 


02475* 


0<y 375 








BNE 


6« 






3784 


024754 




'lOfiOlO 






ADD 


«10,R2 




jAFTEP EACH 756 V.DRDS, PE»AP 


3785 


02476C 


02r:s7 


154242 






CMP 


P2,HC0P12 




JDONE? 


3786 


024764 


002403 








BLT 


7« 




»H0- BRANCH 


3787 


024766 


0C4-67 


If 7760 




811 


JSP 


PC,P5T04 






3788 


024777 


f r ; T 7 








BTS 


PC 




JYFS- EXIT 


3789 


024774 


? ' "> 7 "J 






7$l 


TST 


CP4) + 




;MOVE DATA POINTER 


3790 


024776 


■. : <31 


C25106 






CMP 


P4,»WCASEE 




STO NEXT WORST CASE VALUE 


3791 


O2500i 


S ; « 








BLO 


3B 




lAND CONTINUE 


3792 


025004 


O0P745 








BP 


2S 






3793 




















3794 


025006 


177776 


000001 


177775 


WCASEl 


.WORD 


177776,1,177775, 


3,177773,4,177767.10 


3795 


025014 


000002 


177773 


000004 












3796 


025022 


177767 


000010 














3797 


025026 


177757 


000030 


177737 




.WORD 


177757,20,177737 


.40.177677.100,177577,300 


3798 


025034 


000040 


177677 


000100 












3799 


025042 


177577 


000300 














3800 


025046 


177377 


000400 


176777 




.WORD 


177 377,400.176777,1000,175777,2000,173777,4000 


3801 


025054 


001000 


175777 


003000 












3803 


025063 


173777 


004000 














3803 


035066 


167777 


010000 


157777 




.WQPD 


167777,10000 


,157777,30000,137777,40000,77777,100000 


3804 


035074 


020000 


137777 


040000 












3805 


025102 


077777 


100000 




WCASEEl 










3806 


025106 
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3807 
















3809 








3810 


025106 






3811 


025106 






3812 


025106 


053523 


046116 


3813 


025114 


010700 




3814 


025116 






3815 


0251)6 


052522 


0001 16 


3816 


025124 


010710 




3817 


025126 






3818 


025126 


047515 


000104 


3819 


025134 


013222 




3820 


025136 






3821 


025136 


042523 


000114 


3822 


025144 


012462 




3823 


025146 






3824 


025146 


042504 


000123 


3825 


025154 


012500 




3826 


025156 






3827 


025156 


040515 


000120 


3S23 


025164 


012314 




3829 


025166 






383Q 


03! ' 66 




046114 


3831 


025174 


013214 




3832 


025176 






3833 


025176 


0521 1 3 


043117 


3934 


025206 


012562 




3S35 


025210 






3836 


025210 


0521 1 3 


0471 1 7 


3837 


025216 


012632 




3838 


025220 






3839 


025220 


047520 


0001 16 


3840 


025226 


01 3004 




3841 


025230 






3842 


025230 


047520 


043106 


3843 


025236 


013044 




3844 


035240 






3845 


025340 


047522 


047524 


3846 


035350 


012744 




3847 


025353 






3S4S 


025252 


047S22 


047524 


3849 


025360 


000 




3850 


025262 


012760 




3851 


025264 






3852 


025264 


0501 14 


047117 


3853 


025373 


021110 




3854 


025274 






3855 


025274 


047503 


ooous 


3856 


035303 


013130 




3857 


035304 






3858 


025304 


047503 


043106 


3859 


025313 


01 3170 




3960 


025314 


015 


000 


3861 


025316 


004 


000 


386? 


035320 


010S46 





jCOHNAKO TABLE. KEYBOAPD COMMANDS AHE MATCHED AGAINST IT, 



COMTABi 



000106 



000116 



543106 





S£ EXACT "0 ASSl 


TORN 


*"RUNL",PUNL 


.ASCII 


%PUNL% 


.WORD 


RUNL 


TOKN 


•"RUN", PON 


.AGCIZ 


%RUNt 


.WORD 


RUN 


TOKN 


••MOD", MOD 


.A8CIZ 


%MbD% 


.WORD 


MOD 


TOKN 


•"SEL" , SEL 


.ASCIZ 


%SEL% 


.WORD 


SEL 


TOKN 


*"DES",DES 


.ASCIZ 


%DES% 


.WORD 


DES 


TOKN 


•"MAP", MAP 


.ASCIZ 


%MAP% 


.SORC 


MAP 


TOKN 


•"FILL", FILL 


•ASCIZ 


%FILL% 


.WORD 


FILL 


TOKN 


•"KTOFF'.KTOFF 


.ASCIZ 


%KTOrF% 


.WORD 


KTOFF 


TOKN 


*"KTON»,KTON 


.ASCIZ 


%KTON% 


.WORD 


KTON 


TOKN 


•"PON", PON 


.ASCIZ 


%pbN% 


.WORD 


PON 


TOKN 


•"P0FF",P0FF 


.ASCIZ 


%POFF% 


.WORD 


POFF 


TOKN 


•■ROTON",POTON 


.ASCIZ 


%ROTON% 


.WORD 


FOTON 


TOKN 


•"POTOFF",ROTOFF 


.ASCIZ 


%ROTOFr% 


.WORD 


POTOFF 


TOKN 


•"LPON",LPON 


.ASCIZ 


%LPON% 


.WORD 


LPON 


TOKN 


•"CON", CON 


.ASCIZ 


%CON% 


.WORD 


CON 


TOKN 


*"COFF",COFr 


.ASCIZ 


%COFF% 


.WORD 


COFF 


.BYTE 


15,0 


.BYTE 


4,0 


.WORD 


C0MC02 



iCP 
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)864 I IMPURE MESSAGES 

3S65 



3866 


035330 


050045 


051101 


052111 


PERP 1 1 


■ASCII 


'%PAPITV ERROR ' 


3867 


035336 


0301 31 


051 1 05 


047523 








3868 


025344 


020122 


020040 










3669 


035350 


020040 


030040 


020040 


PhEGI 


• A5C I I 


/ 


3870 


025356 


057 






PCONTi 






3871 


035357 


040 


020040 


020040 


■ASCII 




3873 


025364 


040 












3873 


025365 


040 


020040 


052522 


PuNDI Al 


■ ASCI Z 


PUN PARI * Y/MEMORY DIAGNOSTICS! 


3874 


025372 


020116 


040520 


044522 








3875 


025400 


054524 


046457 


046505 








3876 


^25406 


05 1 1 1 7 


0201 3 1 


044504 








3877 


035414 


043501 


047516 


052123 








3878 


025433 


041511 


022533 


000 








3879 


025427 


045 


Q4U9 20 


044522 


r&Hp2 1 


■ASCIZ 


'•.aKDTfV VBDnc _ _ _ f *mu CDV DBR ^Tlll PITJJW UU&UT maTs rT&^>^D1T^& 
lirflKI fx CiKPUn 9wm V A T j ar ¥ # r S A # C U ft i ? «w/ i - A f " " AP^ 1 f ^ - A A fl f w i 


3880 


025434 


054524 


043440 


051 l22 








3881 


025442 


051117 




026455 








3882 


025450 


024040 


0405 1 2 


0261 15 








3883 


025456 


051123 


0261 26 


041120 








3884 


025464 


026101 


052503 


026101 








3885 


025472 


0461 06 


027507 


047 111 








3686 


025500 


036 134 


044127 


046501 








3887 


025506 


0261 1 1 


042103 


052101 










0255 1 4 


026 101 












3889 


025522 


041 457 


OS 25 20 


02245 1 








3690 


035530 


000 












3891 


025531 




054523 


052123 




• 




3892 


025536 


046505 


042440 


05 1 1 22 








3893 


025544 


051117 


035123 


000 








3894 


02555 1 


040 


020040 


020040 




■ 


rU^tF* r A i Ud I 


3695 


025556 


047520 




M^r ^ A^ 








3896 


025564 


040506 


046 111 


0351 23 










025572 














3898 


025573 


045 


0200*0 


020040 




■»SCII 


* 


3899 


025600 


020040 


052 1 1 


O40 








3900 


025605 


040 


020040 


020O4O 


A PC t 


.ASCII 


STAT 


3901 


025612 


020040 


052 123 


0521 01 








3902 


025620 


040 












3903 


035621 


040 


020040 


020040 


AMDSTA 1 


■ ASC 1 1 




3904 


025626 


040 












3905 


025627 


040 


050040 


05 1501 


MOXREi 


« A SCI I 


PASCNT 


3906 


025634 


047103 


0201 24 










3907 


025640 


020040 


020040 


027040 


APSCNT 1 


• 


. ERRCNT 


3908 


035646 


020040 


051105 


041522 








3909 


025654 


0521 J 6 












3910 


025657 


040 


AO A A4 A 

020040 


020040 


AtPPSi 


■ 


• 


3911 


025664 


000056 












3912 




025667 






.000 






3913 


025667 


040 


020040 


020040 


HOLDS 1 


■ASCIZ 




3914 


025674 


000 












3915 


025675 


040 


020040 


020040 


H0LD6I 


.ASCIZ 




3916 


025702 


020040 


000040 










3917 


025706 


020040 


020040 


020040 


HOLOei 


.ASCIZ 




3918 


025714 


020040 


020040 


000 








3919 


025721 


040 


020040 


020040 


ACNDl 


.ASCII 


• PC-' 
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3920 


025726 


020040 


041530 


055 








3921 


025733 


040 


020040 


020040 


AENDlt 


.ASCII 


' APC-' 


3932 


025740 


030040 


050101 


026503 








3923 


025746 


020040 


020040 


020040 


AEND3I 


■ASCIZ 




3924 


025754 


000040 












3925 


025756 


020040 


040520 


051523 


tPASSi 


■ASCII 


' PASS* • 


3926 


025764 


020043 












3927 


025766 


020040 


020040 


027040 


APASSI 


■ASCIZ 




3926 


025774 


000 












3929 


025775 


040 


051104 


050117 


MODENDt 


■ASCIZ 


' DROPPED!' 


3930 


026002 


042520 


032504 


000 








3931 


026007 


105 


043116 


040520 


APSENOI 


.ASCII 


'ENDPAS-' 


3932 


026014 


026523 












3933 


026016 


020040 


030040 


027040 


BPSCNTj 


.ASCIZ 




3934 


026034 


000 












3935 


026025 


045 


030040 


020040 


TIMXI 


■ASCIZ 


•% IS HUNG 


3936 


026032 


020040 


051511 


044040 








3937 


026040 


047125 


027107 


046440 








3936 


026046 


042117 


04613S 


020105 








3939 


026054 


051104 


050117 


042520 








3940 


026062 


027104 


000045 










3941 


026066 


051040 


047125 


044524 


TOTIMj 


■ASCII 


• RUNTIME-' 


3942 


026074 


043515 


055 










3943 


026077 


040 


020040 


072 


THRSi 


■ASCII 


' 1 ' 


3944 


026103 


040 


035040 




TMlNSi 


.ASCII 


' : ' 


3945 


026106 


030040 


000 




TSECSl 


.ASCIZ 




3946 


026111 


040 


051520 


044524 


PSTIMi 


■ASCII 


♦ PSTIME-' 


3947 


026116 


043515 


055 










394S 


026121 


040 


035040 




MMINSt 


■ASCII 


' 1 ' 


3949 


036124 


020040 


000045 




MSECSl 


■ASCIZ 


' %' 


3950 


026130 


041445 


051123 


020101 


AERRORl 


■ASCII 


•%CSRA ' 


3951 


036136 


020040 


020040 


020040 


ACSRACt 


.ASCII 


CSRC ' 


3952 


026144 


041440 


051133 


020103 








3953 


036152 


030040 


020040 


020040 


ACSRCi 


.ASCII 


' STATC • 


3954 


036160 


051440 


040524 


041524 








3955 


036168 


040 












3956 


036167 


040 


020040 


020040 


ASTATCi 


■ASCIZ 




3957 


036174 


020040 


000 




ADTERRt 






395S 


036177 


045 


051503 


040522 


■ASCII 


'ICSRA ' 


3959 


036304 


040 












3960 


026305 


040 


020040 


020040 


ADTE6I 


.ASCII 


' S/B ' 


3961 


036313 


020040 


037533 


020102 








3962 


036320 


030040 


030040 


020040 


ADTE3i 


.ASCII 


' WAS ' 


3963 


036336 


053440 


051501 


040 








3964 


036333 


040 


030040 


020040 


ADTE3I 


.ASCII 


' WPADR • 


3965 


036340 


020040 


051137 


042101 








3966 


036346 


020122 












3967 


036350 


020040 


030040 


030040 


ADTE5I 


.ASCII 


' RDADR ' 


396S 


036256 


051040 


040504 


051104 








3969 


036264 


040 






ADTE4I 






3970 


026365 


0*0 


020040 


030040 


■ASCIZ 




3971 


026373 


020040 


000 




ADTE4Ai 






3972 


036375 


040 


040504 


040534 


.ASCIZ 


' DATA ERROR' 


3973 


036303 


043440 


051133 


051117 








3974 


036310 


000 












3975 


036311 


137 


051117 


021504 


ADTEXi 


.ASCII 


'WORD* • 
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3976 


026316 


040 












3977 


026317 


040 


020040 


020040 


ADTE? I 


.ASCIZ 




3978 


026324 


022456 


000 










3979 


026327 


040 


051105 


021522 


ERRNMBi 


.ASCII 


' EPRi ' 


3980 


026334 


040 












398S 


026335 


040 


020040 


020040 


AERKMB 1 


.ASCIZ 


: > 


3982 


026342 


000056 












3993 


026344 


046445 


046505 


043040 


MERRl 1 


.ASCII 


'%MEH FAILURE" PA ' 


3984 


036352 


044SG1 


052514 


42522 








398S 


026360 


020055 


040520 


040 








3986 


026365 


040 


020040 


020040 


MERR2t 


.ASCII 


* S/B ' 


3987 


026372 


020040 


027523 


020102 








3988 


026400 


020040 


020040 


020040 


HERP3t 


.ASCII 


• WAS ' 


3989 


026406 


053440 


051501 


040 








3990 


02641 3 


040 


020040 


020040 


MERP4t 


.ASCIZ 


• > 


3991 


026420 


020040 


000 










3992 


026423 


045 


02" j40 


020040 


AERNMt 


.ASCII 


•% HAD • 


3993 


026430 


020040 


040SiO 


020104 








3994 


026436 


020040 


020040 


027040 


AEPCTt 


.ASCII 


• . DATA ERRORS OUT 


3995 


026444 


042040 


052101 


020101 








3996 


026452 


051 105 


047522 


051522 








3997 


026460 


047440 


052125 


047440 








3998 


026466 


020106 






AERTOTi 






3999 


026470 


020040 


020040 


027040 


.ASCIZ 


' , WORDS READ*' 


<UDU 




053440 


OSI 11? 


051504 








4001 


026504 


051040 


040505 


022504 








4002 


026512 


000 












4003 


026513 


040 


040 


040 


OECVALt 


.BYTE 


40.40.40>40(40»40 


4004 


026516 


040 


040 


040 
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4005 






(BUFFER AREAS. 






4006 












4007 




026522 


.EVEN 






4009 


07652? 




MOOQI 




;POON FOP 60 


4009 


026712 




K8UF! 




jKEYBOAPC BUFFER. KBl 


4010 


026752 


000014 


.BLKW 


14 




401 1 


027002 


000004 


USPi .BLKW 


4 




4012 


021012 




SSP! 






4013 


027012 


000100 


.BLKW 


64 . 


;MONIT0P STAI 


4014 


077212 




SPBOTi 






4015 


027212 


000020 


,BLKW 


16. 


; SPECIAL ^dn: 


4016 


027752 




SPSPKCl 






401 7 


027252 


000620 


lOQl .PLKB 


lOOL 




4018 


O30n72 


00.1130 


TYPEOl .RDKB 


TYBOL 




4011 












4020 


0312?? 


000000 


nPEN 




(PATCH SREA 


4021 


031224 


000000 


OPEM 




fPATCH JPFA 


4022 


031226 


OOOOOO 


OPEW 




(PATCH AREA 


4023 


031230 


floonoo 


OPEN 




(PATCH AREA 


4024 


031232 


OOOOOO 


OPEN 




jPatch area 


4025 


031234 


nooooo 


OPEN 




(PATCH AREA 


4026 


031236 


OOOOOO 


OPEN 




[PATCH AREA 


4027 


03124" 


OOOOOO 


OPEN 




jPATCH AREA 


4020 


031242 


OOOOOO 


OPEN 




(PATCH AREA 


4029 


031 244 


OOOOOO 


OPEN 




(PATCH AREA 


4030 


031246 


OOOOOO 


OPEN 




(PATCH AREA 


4031 


031750 


OOOOOO 


OPEN 




(PS^CW AREA 


4032 


031252 


OOOOOO 


OPEN 




(PATCH AREA 


4033 


011254 


ooooon 


OPEN 




(PATCH AREA 


4034 


031756 


010000 


OPEN 




(PATCH AREA 


4035 


031260 


OOOOOO 


OPEN 




(PATCH AREA 


4036 


03176? 


OOOOOO 


OPf N 




(PATCH AREA 


4037 


031264 


OOOOOO 


OPEN 




(PATCH AREA 


4038 


031266 


OOOOOO 


OPEN 




(PATCH AREA 


4039 


031770 


nooooo 


OPEN 




(PATCH AREA 


4040 


031772 


OOOOOO 


OPEN 




(PATCH AREA 


4041 


031274 


OOOOOO 


OPEN 




(PATCH AREA 


4042 


031276 


OOOOOO 


OPEN 




(PATCH AREA 


4043 


031 100 


OOOOOO 


OPEN 




(PATCH AREA 


4044 


031302 


OOOOOO 


OPEN 




(PATCH AREA 


4045 


Oil 304 


OOOOOO 


OPEN 




(PATCH AREA 


4046 


031 306 


OOOOOO 


OPEN 




(PATCH AREA 


4047 


O31310 


OOOOOO 


OPEN 




(PATCH AREA 


4048 


031312 


OOOOOO 


OPEN 




(PATCH AREA 


4049 


031314 


OOOOOO 


OPEN 




(PATCH AREA 


4050 


031316 


OOOOOO 


OPEN 




(PATCH AREA 


4051 


031320 


OOOOOO 


OPEN 




(PATCH AREA 


4052 


031322 


OOOOOO 


OPEN 




(PATCH AREA 


4053 


031324 


OOOOOO 


OPEN 




(PATCH AREA 


4054 


031326 


OOOOOO 


OPEN 




1 PATCH AREA 


4055 


031330 


OOOOOO 


OPEN 




(PATCH AREA 


4056 


031332 


OOOOOO 


OPEN 




(PATCH AREA 


4057 


031334 


OOOOOO 


OPEN 




(PATCH AREA 


4058 


031336 


OOOOOO 


OPEN 




(PATCH AREA 


4059 


031340 


OOOOOO 


OPEN 




J PATCH AREA 


4060 


031342 


OOOOOO 


OPEN 




(PATCH AREA 
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13t 



SEQ 0113 



4061 


031 J44 


000000 


OPEN 


jPATCH AREA 


4062 


031346 


000000 


OPEN 


> PATCH AREA 


4063 


031350 


000000 


OPEN 


(PATCH APEA 


4064 


031352 


000000 


OPEN 


(PATCH AREA 


406S 


031 j54 


000000 


OPEN 


(PATCH AREA 


4066 


031356 


000000 


OPEN 


(PATCH AREA 


4067 


011360 


000000 


OPEN 


(PATCH APEA 


4068 


031362 


000000 


OPEN 


(PATCH APEA 


4069 


011364 


000000 


OPEN 


[PATCH AREA 


4070 


031366 


000000 


OPEN 


(PATCH AREA 


4071 


031370 


000000 


OPEN 


(PATCH AREA 


4072 


031372 


000000 


OPEN 


(PATCH AREA 


4073 


0313'' 'I 


000000 


OPEN 


(PATCH APEA 


4074 


03t 376 


000000 


OPEN 


(PATCH APEA 


407S 


031400 


000000 


OPEN 


(PATCH APEA 


4076 


031402 


000000 


OPEN 


(PATCH AREA 


4077 


031404 


000000 


OPEN 


(PATCH AREA 


4078 


031406 


000000 


OPEN 


(PATCH ARFA 


4079 


031410 


000000 


OPEN 


(PATCH AREA 


4080 


031412 


000000 


OPEN 


(PATCH AREA 


4081 


031414 


ooooon 


OPEN 


(PATCH APEA 


4082 


03) 416 


oooooc 


□ PEN 


(PATCH APEA 


4083 


035420 


000000 


OPEM 


(PATCH AREA 


4084 










4085 


031422 


000200 


IjOGRUFj .BLKW 20n 


rBUFEER HOLDS LAST COPY TAKEN 


4086 










4087 




032022 




(FIRST ADDRESS AFTER OUEUFS 


4088 




124037 


BUrSIZ»SMO0NH-STA»T 




4089 
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4090 










( ROUTIK 


- ,fQ i5p:xs:rmine whethfp 


WBITE BUFFER ROTATION SHOULD TAKE PLACE, 


4091 










(AND TO 


DETERMINE CORE LIMITS 


OF BUFFER pnt&TTQH. ALSO TO DETERMINE USF OF 


4092 










(HTI OP 


RTT INSTRUCTION, 




40? 5 




0272! , 








,«1P0 






4094 


027752 


01276" 


•, .:■)•> >J 


150530 


SETPU"! 


MOV 


ns.PESIV 


[SET up A RESERVED INSTRUCTION TRAP, 


409S 


027^60 


n0504«' 








CLP 


-(SP) 


[CLFAP A "ORD 0« THE STACK FOR A NEW PS* 


4098 


f>2'2S2 


n 274i 


^?737^ 






XOV 


•5S.-(SP) 


(SET UP rn EXIT WITH RTT INSTRUCTION, 


4097 


027?66 


ooooos 








RTT 




[IF RTT VOT VALID IT WILL TRAP OUT, 


4098 


027270 


012767 


loooo; 


156410 


Itl 


MOV 


*RTI,TRC1A 


(TRAP CP»'FS HERE. CHANGE PTT'S TO BTI'S. 


4099 


027276 


012767 


000002 


153632 




MOV 


•RTlfPTTl 


( RY SETTING THE INSTRUCTION VALUE 


4100 


027304 


016767 


152060 


152066 




MOV 


CHKL2,CHKL1 


(CHANGE SET OF CHKSUM WORDS BECAUSE 


4101 


027312 


0)6767 


152054 


152062 




MOV 


CHKH2»CHKH1 


(OF RTI'S REPLACING PTT'S 


4102 
















(OF ALL PTT'S TO THOSE OF BTI'S 


4103 


oj';3?0 


' ? « 7 




150462 


3S( 


MOV 


»pf:sint,resiv 


[RESTORF THE RESERVED INSTRUCTION TRAP VECTOR 


41 04 
4105 


027326 




i "2001 






CLPB 


M0I,45 


[CLEAR T".r. PDP-ll/4fi INDICATOR 


4i 06 


027?}? 


••■:"> If 


- - in; 2 


1^0444 




MDV 


«1S,BUSEV 


[RET UP A NDN-EXISIFNT ADDRESS TRAP 


4107 


027140 


On',-737 


)7'772 






TST 


atpIRQRG 


(IS THE PROGRAMMED INTERRUPT REQUEST REGISTER THERE? 


4108 


021344 


112767 


000001 


151 '61 




rtOVB 


») , WDL45 


[IF IT IS, SET THE FLAG INDICATING AN 11/45 


4109 


027352 


105067 


151725 




311 


CLRB 


KTPPES 


[CLEAR THE "EMORY MftNAGEMKNT INDICATOR 


4110 


027 }56 


012767 


O27402 


150420 




MOV 


»4S»BUSEV 


(SET UP A NON-EXISTENT ADDRESS TRAP 


4U1 


027364 


005017 


177572 






CLR 


'•SSPO 


[IS THERE A KT-11 ON THIS SYSTEM? 


4112 


n2"»370 


105!fc7 


)51710 






COMB 


KTPRES 


(IF THERE IS, SFT THE KT11 PRESENT INDICATOR 


4113 


OJ7i7 4 


1 "»767 


151704 


151670 




MOVP 


KTPBES,KTSAV 


(SAVE FOP USE I-J SECOND PASS OF CHAINING 


4114 


027 !02 


013767 


0)524* 


150374 


4tl 


HOV 


#BUSERR,BUSEV 


(REPLACE THE BUS ERROR TRAP VECTOR 


4115 


027410 


005067 


150362 






CLR 


PSW 


[RESET THE PSW 


4116 


027414 


105067 


151673 




STBFAi 


CLRB 


ROTl 


(ASSUME NO BUFFER ROTATTOK% 


4117 


027420 


105067 


151671 






CLRB 


PELOC 


(ASSUME NO CODE RELOCATION 


4118 


r)I7424 




150350 






MOV 


0,L':>CORE 


[GET LOCORE ADDR, FROM IOC 


4119 


027432 


001004 








BNE 


1$ 


[BP IF LINKED WITH CONFIG/LINKER PROGRAM 


4120 
















(IF NOT ASSUMES NOT IN CHAIN MODE 


4121 


027434 


005167 


151560 






COM 


LOCORE 


[INDICATE SETBUF HAS BEEN RUN 


4122 


027440 


000167 


000420 






JMP 


SETXT 


[GO PREPARE TO EXIT SETBUF ROUTINE 


4123 


027444 


004567 


165152 




iti 


JSR 


R5,T0P12S 


(GET TOP 12 BITS OF LOCORE PHYS ADDR 


4124 


027450 


001220 








LOCQRE 




(AND PUT IT INTO LCnR12 


4125 


027452 


032767 


000777 


151540 




BIT 


»777, LOCORE 


(IS IT ON A 256 WORD BOUNDARY 7 


4126 


027460 


0DU14 








BEQ 


2» 


[YES, CONTINUE 


4)27 


027462 


042767 


000777 


151530 




BIC 


#777, LOCORE 


(NO, CLEAR OUT LOWER BITS 


4128 


027470 


042767 


000007 


151526 




BIC 


»7,LCOP12 


(ROUNDING OFF TO NEXT HIGHEST 256 BOUNDARY 


4129 


027476 


062767 


obiooo 


151514 




ADO 


»1000#LOCORE 


(ROUND UP TO THE NEXT 256 WORD BOUNDARY 


4130 


127504 


062767 


000010 


151512 




ADD 


t)0,LCQR12 


(ALSO INDICATE THAT BOUNDARY IN L0C0P12 


4131 


027J12 


0!6767 


150324 


151506 


2(1 


MOV 


42,HCOP12 


(ARE WE IN CHAIN MODE? 


4132 


027520 


00140 3 








BED 


KTTEST 


(IF NO, GO DETERMINE IF KI IS TO BE USED 


4133 


027522 


1127S7 


177777 


151562 




MOVE 


»-l,CHN 


(IF YES, SET THE CHAIN INDICATOR 


4134 


027530 


105787 


151550 




KTTESTs 


TSTB 


KTPPES 


(IS THE KTU AVAILABLE FOR USE? 


4135 


027534 


001035 








BNE 


SETKT 


(IF YES, GO SIZE MEMORY USING IT 


4136 


027516 


ni 2787 


027600 


1502*0 




MOV 


«5$,4 


(IF NO, ONLY SIZE MEMORY UP 10 28K 


4137 




li 


174107 






MOV 


••4OOO1RO 


(INITIALIZE LOOP COUNTER TO POINT TO BANK 


4I3B 


P''''<550 


1 ^ 1, 








CtR 


R) 


[INITIALIZE THE COUNTER OF IK CHUNKSCBANKS) 


4139 


1} ,'>•' 


5 . 


0J430C 




Ml 


ADD 


*4000>R0 


(POINT TO THE FIRST WORD IN THE NEXT IK BANK 


4140 


1 Mf> 










ADD 


»0, f RO) 


(WILL TRAP IF LOC DOESN'T EXIST 


4141 


"-"Ss? 


■ 








INC 


P) 


(IF NO, CONTINUE PROCESING AT 4S 


4142 














[IF YES, UP THE MEMORY BANK COUNT 


4143 






■!'34 






CMP 


128. .Rl 


(HAVE 28 BANKS BEEN COUNTED? 


414* 


5373715 










BNE 


41 


(IF NO, GO CONTINUE SIZING 


41,«S 




06,'",* 


■51SO50 






ADD 


•4000, RO 


SIF YES, INDICATE THE NUMBER OF WORDS IN RO 
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41 16 


027576 


000401 








BR 


6S 


JSKIP OVEP THE MEXT IVSTPUCTION 


4147 


027*00 


022636 






c« ■ 


CMP 




j XT TnERE WAS »u LOCATXuN AT liAST Tsy, 


4148 
















I REMOVE THE TRAP FROM THE STACK 


41 49 


027602 


000300 






6(1 


8NAB 


RO 


} ISOLATE THE 13 HGH ORDER BITS, FIRST, 


4150 
















SGFT THE HOST SIGNIFICANT BITS IK THE LOW BYTE 


4151 


027604 


006300 








ASL 


RO 


I ALIGN THE BITS TO ACCOUNT FOR 


4152 


027S06 


006300 








ASL 


RO 


jEXTENDEO ADDRESS BITS C17 + 18) 


4153 


027610 


043700 


170037 






BIC 


tl70037fP0 


(ELIMINATE THE UNWANTED BITS FROM RO 


4154 


037614 


1 05767 


151472 






TSTB 


CHN 


lACTll CHAIN? 


4155 


027630 


100054 








BPIi 


SETCOH 


J NO" DON'T AOn ROOM FOR MONITOR 


4156 


037S23 


1 62700 


000100 






SUB 


tlOOtRO 


lYES- ALLOW ROOM FOR MONITOR 


4157 


027636 


000451 








BR 


SETCOM 


jGO TEST THE MEMORY 


415S 


027630 


004767 


162160 




SETKTl 


JSR 


PC.KTINIT 


(TURN ON THE KTll 


4159 


027634 


012737 


077406 


173304 




MOV 


177406, 9IKIPOR2 




4t6n 


027642 


012737 


000001 


177572 




MOV 


*1,()#SSR0 


J TURN ON KTll 


4161 
4162 


027650 


012737 


027722 


000004 




MOV 


*2S,»*i 


jSETUP TIMEOUT VECTOR 


4163 


027656 


016701 


151342 






MOV 


LC0R13.R1 


J GET THE TOP OF THE PROGRAM 


4164 


027662 


062701 


000040 






ADO 


«40.R1 


» ROUND IT UP 


4165 


027666 


042701 


000037 






BIC 


#37, Rl 


fMAKE SURE IT'S A IK BOUNDARY 


4166 


027672 


010137 


172344 






MOV 


PI ,9tKIPAR2 


J LOAD THE KTll REGISTER 


4167 


027676 


06273? 


000000 


O4OQOQ 


IS! 


ADD 


SO, ajf40000 


}TI"E OUT IF TnlS LOCATION IS NXM 


4168 


027704 


062737 


000040 


173344 




ADD 


*<>0,!)*KIPAP3 




4169 


027712 


001 371 








PNC 


IS 




4170 


027714 


01 2700 


007600 






MOV 


•7600, RO 




4171 


027720 


000403 








BR 


1$ 




4172 


027722 


022626 






3tl 


CMP 


CSp}+, (SP}+ 




4173 


027724 


016700 


143414 






MOV 


KIPAR3,P0 




4174 


027730 


105767 


151356 




3$t 


TSTB 


CHN 


tCHAIN MODE? 


4175 


027734 


100006 








BPl 


SETCOM 


jNO, JUST GO TEST MEMORY 


4176 


027736 


005067 


151342 






CLP 


KTpRES 


lYES SHUT OFF KT FOR FIRST CHAIN PASS 


4177 


027742 


010067 


15} 136 






MOV 


P0,HCR13A 


:SAVE THE REAL MEMORY SIZE 


4178 


027746 


000005 








RESET 




:TURN KT OFF 


4179 


027750 


000667 








BR 


KTTEST 


jNOW GO SIZE WITHOUT IT 


4180 


027752 


012767 


015246 


150034 




MOV 


tBUSEPR,4 


5 RESET BUS ERROR TRAP. 


4181 


027760 


010067 


151242 






MOV 


P0,HC0P13 


jHI ADDR TO HC0R13. 


4182 


027764 


004767 


000103 




SETCMli 


JSR 


PC.TSTMEM 


•TEST MEMOPY FOR BASIC FUNCTIONING 


4183 
















fVIA ADDRESS UP/OOWN TEST 


4184 


027770 


004767 


000626 






JSR 


PC,ANYPAR 


iCHECK POP PARITY MEM, AND TURN IT ON 


4185 


027774 


016700 


151226 






MOV 


HC0P12.ro 


iDIFF BETWEEN LC0P12 AND KC0P13 


4186 


OJOOOO 


010067 


151324 






MOV 


RO.HCOPSV 


lINITIALIZE SAVE LOCATION FOR KTON/OFF COMMANDS 


4187 


030004 


166700 


151214 






sue 


i.ccpi2,pe 


jMUST SE ?T LEAST 40 


4188 


030010 


022700 


000040 






CMP 


140, PO 


lis IT7 


4189 


03001 4 


101023 








6HI 


SETXT 


(FORGET IT IF NOT, 


4190 


030016 


105267 


151371 






INCB 


POTI 


(ALLOW POTATION, 


4191 


030022 


1 05767 


151256 






TSTB 


KTPPES 


(NO PELOCAT10«I IF NO KTll 


4192 


030026 


001413 








BEQ 


IS 




4191 


O30O30 


022700 


000400 






CMP 


#400, PO 


(IF 8K OR GREATER, »LLOW CODE RELOCATION 


4194 


03O034 


mioio 








BHI 


IS 


(BRANCH IF NOT 


4195 


030036 


016767 


151164 


151174 




MOV 


HC0P12,0FFMX 


(CALCULATE THE HIGHEST LOC TO WHICH 


4196 


030044 


166767 


151154 


151166 




SUB 


LC0P12,0rFMX 


(THE PROGRAM CA'J BE RELOCATED 


4107 


030052 


105267 


151237 






INCe 


RELOC 


(ENABLE RELDC»TION 


4198 


010056 


004767 


174610 




ISI 


JSR 


PC.LOADWC 


(LOAD WORST CASE UNTBU8 NOISE PATTERN 


4199 


010062 


000005 








RESET 




(TUPS OFF KTl i IF XK USE 


4200 


010064 








SETXIl 








4201 


010064 


005067 


147710 






CLP 





(CLEAR toe 0. 
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4202 030070 000205 PTS P5 (EXIT. 



!J!42 SEO 0137 



4J03 










1 MEHOp Y 


ADDRESS 


UP/DOWV TEST 




4204 


















4205 


? C ' 2 


.; 2 6 ; i 7 


1 S 1 3 


■ - * ' 






nvvr I i t h\.Ur.l /. 


■ &UV UCMnDV fn TB<CT <s 


4306 


30100 


001 001 








BMP 






4207 


030102 


000207 








DTS 


PC 


jNO« RETURN 


4208 


030t 04 


016702 


151114 






Mnv 






4209 


030110 


016701 


151 104 






unv 






4210 


O301 1 4 


01 2767 


030476 






MOV 


I^QME^ 4 




421 1 


030122 


1 05767 


151156 




1 SI 


TSTB 


KTPPES 


? USE KTl 1 ? 


4212 


030126 


001002 








BNE 


2$ 


lYES* BRAN'CH 


4213 


030130 


010100 








MOV 


P 1 » PO 


(NO* SET VA EQUAL TO PA 


4214 


030132 


000404 








BP 


38 




4215 


030134 


0127 00 


O400O0 




28 1 




# 40000 1 PO 


•SET VA TO PAGE 2 


4216 


30140 


010267 


1 42200 






MOV 


P2 # 1PAR2 


(MAP PAGE 2 TO PHYSICAL ADDRESS 


4217 


030144 


01 2703 


000040 




31 1 




# 32 t r P3 




4218 


030150 


010120 






48 1 


Mn« 


^1 f CPO)+ 




4219 


030152 


062701 


000002 






snn 
*22 






4220 


030l56 


005303 








DEC 






4221 


030160 


00137 3 








BNE 


48 




4222 


030162 


005202 








INC 


R2 


lArACir 1 ch^JL^t UP PAyc AUUHli^oo f IClJl^ 


4223 


030164 


020267 


151036 






CMP 


P2 f HCOP J 2 


(AT TOP? 


4224 


030170 


002754 








BLT 


1 8 




4229 


030172 


005 302 








DEC 


R2 




4226 


030174 


1627(11 


000002 






SUB 


*2 # PI 




4227 


03O20O 


105767 


151100 




TSTM 1 1 


TSTB 


KTPPES 


; USE KT 117 


4228 


010204 


001 002 








BNE 


1 8 


jVES" BRANCH 


4229 


030206 


010100 










P 1 f PO 


■ Mn— TflRH UTDTtlRI ftnnDireC DflTWTPO UTTH 
J NU" i'UAU VJriuflL» MUUHtOD r'JiKitK WXin 


4230 


030210 


000404 








BP 


28 




42 31 


03023 2 


012700 


04 0076 




1 S 1 




^40076#P0 


■ MBC Ufi Tf! TOO np 1 CT HT flf^lf TW OhKV 1 


4232 


030216 


01 0267 


142122 






Mnv 


VTQADO 
n/ f ^ 4 PAr/ 


I "Mr rflwt* ^ i rrt 


4233 




"1 2"'03 






2 S I 


unu 


* 3 2 i f P3 


(CO^'NT 1 BLOCK 


4234 


30226 


011067 


150764 




3 6 1 


Mnv 
MOV 


f*FO # MEMWAS 




4235 


030532 


020167 


1 50760 






CMP 


PI t VEMWAS 


jDOES uOCATiOr* CONTAIN ITS PA? 


4236 


3 2 3 ft 


001120 








BNE 


MEpP 




4237 


030240 


1 62700 


000002 




4S 1 


SUB 


• 2 # PO 




4236 


030244 


1677 01 


000002 






SUB 


1 2 # Rl 




4239 


3025 


005 303 








DEC 


P3 




4240 


030252 


00 1365 










38 




4241 


010254 


005 302 








DEC 


P2 


JAFJR.r C nR C I f*' u 1 ^^t^^JC^^ A0DPc*DO ^&AJ 


4242 


030256 


020267 


1507 42 








K 4 f ijt UH 1 2 


' DONE ? 


4243 


010262 


002346 








BGK 


TST" 1 


J WU* LU^ilWUH. t. net, i. 1" ^3 


4244 


30264 


01 6702 


150736 








HCOP 1 2 f P2 




4245 


030270 


010201 










P2 J P 1 


( EPOM TOP DOW^^ 


4246 


030272 


005302 








DEC 


P2 




4247 


030274 


006 301 








ASL 


PI 




4248 


030276 


006301 








ASli 


Rl 




4249 


030100 


006301 








AStj 


Rl 




4250 


030302 


006301 








ASL 


P 1 




4251 


030304 


ofi 30 1 














4252 












DEC 


PI 




4253 


030310 


006101 








ASL 


PI 




4254 


0301) 2 


l'^5767 


1507S6 




TSTW2I 


TSTB 


KTPPES 


!'ISF KTll? 


4255 


010116 


001 102 








BNE 


1 S 


(YES- BRANCH 


4256 


030320 


010100 








MOV 


Pl.PO 


:N0- LOAD VIRTijSL POINTER WITH 


4257 
















(PHYSICAL AOroicsS 


4258 


010322 


OOOlOl 








BP 


28 





OABH 




■•TJITOS 


"ACYl I 


27(10063 


73-APR 


-77 00:11 PAGE 


136 


DXQABM.Pll 21 


.tPR.7'' 


17|42 












4259 


030124 


1 2 7 n f> 


04007S 




1S( 


MOV 


«40076iRO 


(LOAD VIRTUAL *ITH TOP ADDRESS OF 


4260 
















(1ST BLOCK TN PIGE ? 


4261 


030310 


010267 


1 42013 






MOV 


P2,KIPAP2 


(MAP PAGE 2 TO PHYSICAL 


4262 


010314 


012703 


000040 




281 


MOV 


»32.»P3 


[COUNT A BLOC" 


4263 


010340 


! n 1 






3S ! 


MOV 


Rl , 8R0 


[LOAD LOCATION' «ITH ITS PWYS ADDRESS 


4264 


030142 


0051 1 








COM 


lapo 


(Comple"E';t it 


4265 


010144 


162701 


000002 






SUB 


«2, PI 




4266 


O3O350 


167700 


ot>oon2 






SUB 


#2, BO 




4267 


010354 


005103 








DEC 


R3 




4268 


03'>356 


00! 37'> 








PNE 


3S 




4269 


035360 


0''f5102 








DEC 


R7 


(AFTEP LDADPO « HL^CK, SET UP FOP "''EXT 


4270 


030162 


020267 


150636 






CMP 


R2,t-C0P] 2 


(DONE? 


4271 


030366 


"02351 








BGE 


TST"i2 


(NO- BRAN'CH 


4272 


O 303''O 


005202 








INC 


R2 


(YES- SETUP n CHFCK IT 


4273 


030372 


062701 


000002 






ADD 


»2.P1 




4274 


010376 


010104 








MOV 


PI ,P4 




4275 


010400 


105767 


I5o7no 




TST«3: 


TSTB 


KTPRES 


(USE KTll? 


4276 


010404 


001 002 








BNE 


IS 


(YES- BRANCH 


4277 


010406 


010400 








MOV 


R4,P0 


(SET VIRTUAL ADDRESS EOMAI. TO PHYS ADDRESS 


4278 


010410 


000404 








BR 


28 




4279 


03041 2 


012700 


040000 




ISI 


MOV 


#40000, PO 


(SET VIRTUAL ADDRESS TO START OF PAGE 7 


4280 


030416 


010267 


141722 






MOV 


R2,KIPAP2 


(MAP PAGE 2 TO OHYSICAL ADDRESS 


4281 


030422 


012703 


000040 




28; 


MOV 


»32.,R3 


(COUNT A BLOCK 


4282 


030426 


011067 


150564 




381 


MOV 


PPO.MEMWAS 




4283 


030432 


010401 








MOV 


P4,P1 




4234 


030434 


005101 








COM 


Rl 




4285 


030436 


020167 


150554 






CMP 


P1,«"EMWAS 


(DOES LOCATIO?) COHTeiM COMPLEMENT OF ITS PHVS 


4286 


030442 


00)016 








BNE 


MERP 


)N0- BRANCH 


4287 


030444 


005720 






481 


TST 


(P0) + 




4288 


030446 


062704 


000002 






ADD 


t2,P4 




4289 


030452 


005303 








DEC 


P3 




4290 


030454 


001364 








BNE 


38 




4291 


030456 


005202 








INC 


R2 


(CHANGE 12 SIT ADDRESS AFTER CHECKING A BLOCK 


4292 


030460 


020267 


150542 






CMP 


R2,HC0P12 


(DONE? 


4293 


030464 


002745 








BLT 


TSTM3 


(NO- BRANCH 


4294 


030466 


012767 


015246 


147310 




MOV 


•BUSERR,4 


(RESET THE TT^E-OUT TRAP VECTOR 


4295 


010474 


000207 








PTS 


PC 


(YES- RETURN 


4296 


















4297 


030476 


022626 






NOMEMi 


CMP 


csp)+, tspi+ 


(POP THE STACK POINTER TWICE 


4398 


030500 


012767 


015246 


147276 


HEPPI 


MOV 


*BUSERR,4 


(RESET THE TIME-OUT TRAP VECTOR 


4299 


030506 


105267 


150623 






INCB 


MEMEPF 




4300 


030512 


010067 


150466 






MOV 


PO.MEMVA 


(SAVE FAILING ADDRESS 


4301 


030516 


104413 


001204 






GETPASi 


MEMVA 




4302 


030522 


010167 


150466 






MOV 


Pl.MEMSBE 


(SAVE EXPECTED CONTENTS 


4303 


030526 


016746 


150454 






MOV 


MEMPA, -(5P) 


(CONVERT PHYSICAL ADDRESS TO ASCII 


4304 


030532 


016746 


150452 






MOV 


MEMEA,-(SP) 




4305 


030536 


004567 


163410 






JSP 


rs.oacnvx 




4306 


030542 


026365 








MERR2 






4307 


030544 


016746 


150444 






MOV 


MEMSBE,-tSP) 


(CONVERT SHOULD BE TO ASCII 


4303 


030550 


004567 


163364 






JSP 


P5,0ACNV 




4309 


030554 


026400 








HERP3 






4310 


030556 


016746 


150434 






MOV 


MEMWAS,-CSP3 


(CONVERT WAS VALUE TO ASCII 


431 1 


030562 


004567 


163352 






JSR 


P5,DACNV 




4312 


030566 


026413 








MEPR4 






431 3 


030570 


004567 


164026 






JSP 


P5,T0P12S 


(GET NEW HIGH CORE VALUE 


4314 


030574 


001206 








MEMPA 
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SEQ 0139 



4315 030576 016767 150410 150422 

4316 030604 042767 000007 150414 

4317 oBiielS io2767 000040 150406 

4318 030S20 000207 



MOV 
BIC 



MEM12iHC0R12 
»7,HC0R12 
4 46 « KCuRi 2 
PC 
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»319 
t320 
^21 
1322 
»323 
»3?4 
1325 
1326 
1327 
t32e 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
t336 
433? 
1338 
lt^9 
(340 
4341 
(342 
(343 
(344 
(345 
(346 
(347 
(348 
(349 
(350 
(351 



(THIS POUTIKE CHECKS TOR PARITY MEMORY 



030622 


105067 


150512 




ANYPAPj 


CLRB 


PPRES 


rCLEAR PARITY PRESEN'T FtAG 


030626 


1 05067 


150507 






CliRB 


CNT1 


•CLEAR t OF PEC.TSTERS COUNTER 


030632 


012767 


030654 


1*7150 




MOV 


iis,PEsrv 


J SET UP FOP A RESERVED IKSTR, TRAP 


030640 


076600 


000101 






HED.PDSERV 


!lS THIS AN 11/60 ? 


030644 


152767 


000002 


150466 




BISP 


»PTT1, PPRES 


(YES, SET 11 /SO PARITY PRESENT FLAG 


030652 


000401 








BR 


US 


>GET OUT 


030654 


022626 






l«l 


CMP 


rsp)f , (SP)+ 


IPOP STACK POINTER THICE 


030656 


012767 


015276 


147124 


lltl 


MOV 


»RESINT,RESIV 


(RESTORE RESERV^ID IVSTR, TRAP VECTOR 


030664 


012701 


172100 






MOV 


#172100. Bl 


;LOAD ADDRESS OF 1ST REGISTER 


030670 


012767 


030714 


14710S 




MOV 


»3SiBtJSEV 


jLOAD TIME-OUT VECTOR 


030676 


012702 


001430 






MOV 


#PAPTAe,P2 


;LOAD ADDRESS OF TABLE OF ADR'S 


11111702 


OOSPtl 






7S! 


CtjR 


fRir 


•Tr RfGTSTE? TS T!?EP«: - CtESP IT 


030704 


105267 


150431 






INCB 


C«T1 


rIT'S HERE, COUNT IT 


030710 


010122 








MOV 


Rl . (P23+ 


(PUT IT'S ADDRESS I'lTO THE TABLE 


030712 


000401 








BR 


4S 


(CONTINUE 


030714 


022626 






3S: 


CMP 


(SP)+, (SP)+ 


;Pnp THE STACK POINTER TWICE 


030716 


062701 


000002 




4S| 


ADD 


»2,R1 


(STEP TO THE NEXT ADDRESS 


030722 


022701 


172136 






CMP 


#1721 36, R) 


(ALL REGISTERS CHECKED T 


030726 


002365 








BGE 


28 


(NO, 00 THE NEXT ONF 


030730 


105767 


150405 






TSTB 


CMTl 


(YES, FIND ANY PARITY REGISTERS 7 


030734 


001403 








BCQ 


ss 


(NO, GET OUT 


030736 


152767 


000001 


150374 




BISB 


#BITO.PPRES 


(YES, SET PARITY PRESENT 


030744 


012767 


015246 


147032 


5Si 


MOV 


*BUSERR,BUSEV 


(RESET TIME-OUT VECTOR 


030752 


012767 


015672 


147134 




MOV 


«PAPERR,PARVCT 


(RESET PARITY VECTOR 


030760 


000207 








RTS 


PC 


IPETUPN 




000001 








.END 
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CR0S3 perCPENCG TABLE USER SYMBOLS 



SEQ OMl 



AAT 


023747 




1405 


35831 


ACBLF ■ 


033772 




955 


970 


ACSP ■ 


000053 




1671 




AC9RAC 


026136 




921 


3951* 


ACSPC 


0261S2 




915 


3953* 


ADDPHI 


001044 




2671 


1726 


ADDPIiO 


001043 




2661 


1725 


ADREPR 


013510 




2168 


3175* 


ADTERR 


926177 




946 


39581 


ADTEX 


026311 




953 


39751 


ADTE2 


036333 




853 


889 


ADTE3 


036230 




esi 


891 


ADTE4 


036365 




842 


897 


ADTE4A 


036375 




945 


3972* 


AOTEE 


036350 




849 


903 


ADTE8 


036305 




831 


909 


A0TE7 


036317 




859 


3977* 


AEND 


025721 




765 


931 


AENDl 


035733 




998 


3931* 


AEND3 


035746 




996 


3923* 


AERCT 


036436 




798 


3994* 


ABRNM 


036433 




795 


804 


AEPNHB 


026335 




835 


885 


AERPOR 


036130 




949 


3950* 


AERRS 


035657 




1964 


3910* 


AERTOT 


036470 




801 


3999* 


AliCIiP 


001364 




4021 


1716 


AIiLBK 


001354 


G 


361 


3961 


AMD8TA 


035631 




1958 


3903* 


AMODNM 


035573 




344 


1952 


ANVPAR 


030623 




4184 


4331* 


APASS 


035766 




1004 


3927* 


APC 


035605 




1955 


3900* 


APCLR 


001366 




4031 


1730 


APSCNT 


035640 




1961 


3907* 


APSEND 


036007 




1097 


1104 


APTGAla 


»••••• 


U 


1 


27 








3839 


3573 


ASB ■ 


000056 




1711 


1197 


ASTAT ■ 


000054 




1691 




ASTATC 


036167 




913 


3956* 


ATE 


001343 




386* 


2392» 


AHA3 « 


000060 




172» 


1195 


BDCNV 


014372 


S 


331 


797 








2919 


2976 


BITO ■ 


000001 




311 


1432 








Jl40 


3162 


BITl ■ 


000003 




130» 


1718 








3305 


4335 


BITIO ■ 


002000 




1211 


598 


BITll ■ 


004000 




120* 


598 


BITia ■ 


010000 




119* 


598 


BIT!) a 


020000 




118* 


694 


BIT14 ■ 


040000 




117* 


697 


BIT15 ■ 


100000 




116* 




BITS ■ 


000004 




129* 





973 


1360 


1374 


3718 


3548 


2171* 










3116 


2170» 








2193 


2195 








3964* 










3962* 










3970* 










3967* 










3960* 










938 


1000 


1038 


1035 


1096 


3992* 










3981* 










579 


1044 


1054 






1968 


2326 


3330 


3275 


38981 


3931* 










38 


29 


306 


318 


435 


3580 


4201 








1600* 


1633* 








2295» 


3398* 


3307 


3320 


3330 


1212 


1601» 


1631* 






BOO 


834 


858 


884 


1003 


2981 


3985 








1714 


2054 


3n65 


3330 


3341 


3203 


3413 


4345 






1756 


1918 


3069 


2619 


3653 


608 


1595 


1792 






603 


1788 








618 


1046 


1086 


1798 


307) 


758 


803 


922 


1020 


1121 


979 


1119 


1783 


1947 


1989 



1103 3919* 



4088 



460 


462 


535 


560 


1773 


1779 


2341* 












1090 


1960 


1963 


2353* 


3878 


?e95 


2668 


3071 


3046 


3097 


3in4 


3114 


2674 


29«7 


3037 


3048 


3106 


3164 


3142 
1154 
1994 


33^9 

nci 

3331 


1784 


3333 


3268 
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PAGE 
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13143 




CPOSS perEPENCE 


TABLE -- 


USER SYHBOLvS 






BZT3 ■ 


000010 


138* 


















BIT4 ■ 


000020 


137* 


















BIT5 ■ 


000040 


136* 


















8IT6 ■ 


000100 


125* 


143 
















BIT7 ■ 


000200 


1241 


2298 


3099 














BITS > 


000400 


123* 


















BIT9 » 


OOlOOO 


1221 


1152 


3538 














BKCNT 


001025 


2521 


1053 


1155» 


1797* 












BKPTR 


001270 


350* 


470» 


616* 


665 


1753» 


3116 


3286 


3467* 




BKOSVC 


003140 


570 


716* 
















BKQUG 


001012 


241t 


















BKTIME 


001336 


381 « 


1165 
















BKTIMR 


001034 


261* 


1162» 


1165* 














BKTYM 


030043 


617 


3097* 
















BPSCNT 


026016 


1091 


3933* 
















BRAKE 


001013 


242> 


577 


615» 


1041» 


1059 


tl51« 


1438* 


7610» 


2639» 


BBEAKI* 


104407 


684 


2549* 
















BREAK. 


0034'!'> 


686 


784* 
















BUPSIZ* 


034037 


4088* 


















BU8ERR 


015246 


188 


499 


1887 


3025 


2029 


2579* 


3037 


4114 


41Bn 


BUSEV 


000004 


188* 


462 


464* 


469* 


4106» 


4110* 


4114* 


4331» 


43*7» 


CADDR 


001512 


441 


443* 


756» 


777* 


790» 


812* 


873» 


1079* 


1683» 


CAST ■ 


•»•••* G 


35* 


210 
















CCSRA 


001160 


307* 


488 


905» 


917» 


981* 


984 


987 


988* 




CDATAIB 


104414 


2559* 


















CDATA. 


007636 


1529* 


2558 
















CDATAl 


007662 


1535* 


1652 
















CDERR 


001S16 


447* 


I6O6 
















CDERRl 


001520 


448* 


1535* 


1536* 


1605 












CDPLG 


001156 


306* 


1531* 


1555 


1651» 












CDRET 


010464 


449 


1647* 
















CHKHl 


001402 


416* 


4101* 
















CHKH2 


001372 


412* 


4101 
















CMKLl 


001400 


415* 


4100* 
















CHKL2 


001370 


411* 


4100 
















CHK8UM 


001374 G 


34* 


413* 
















CHN 


001313 


363* 


535 


590 


1109 


1397 


1777 


1860 


2735 


3734 






4174 


















CHNOUT 


016104 


1411 


2663 


2725* 














CKCOHT 


007643 


1528 


1531* 
















CKHUNO 


030463 


1084 


3193 


3203* 














CLKADR 


001430 


423* 


3171* 


3184* 


3408 


3415» 










CLKHLD 


001423 


434* 


3172» 


3184 


3407 


3414* 










CLKOFF 


030334 


1066 


3600 


2637 


3667 


3160* 










CLFOM 


O204I6 


1068 


2754 


3183* 














CLOCK 


001353 G 


33* 


3951 


934 


1031 


1082 


1092 


1403 


1714 


1718 






3046 


3048 


3104 


3106 


3160 


3163 


3164 


3183 


3303 


CLbCKL 


50U54 G 


331 


398* 


3019 


3032 


3059 


3110 


3167 


3309 




CLOCKP 


O0U60 


3i» 


399* 


3035 


3028 


3063 


3112 


3169 


3307 




CLROUS 




■ -l 


529 


1431 


1427 


1755 


3483* 


3431 






clrve: 




• I n 


1754 


3300* 














CLR40 






)$51« 
















CHTl 






1932 


3078 


2686 


4332* 


4334* 


4343 






cbrr 


i i ' D 




3859 
















cbrrr 




ri 


3669* 
















COMCOH 


0!"*,*? 


1(561 


1691* 


1743 


1746 


1843 


1943 


1990 


3038 


3135 



5tQ 0143 



4294 



2742* 2755 



4133* 4154 



3018* 
3305 



3031* 
3375* 



3037» 3036* 
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CROSS PErEPENCE TABLE USER SYMBOLS 



SEQ 0143 





0106^2 


1 67 3 












i 0646 












C0mC03 


1 0656 


1 395 


l695i 


2001 


2010 


2031 




1 0662 


1 6^6 1 


1702 










001503 


44 1 i 


781 


989 


115? 


! 666 


COMTAB 


025106 


1666 


38109 










21 J3 ?2 


2096 4 


3BS6 














3666 1 








COnTPL 


001476 


4 J 1 # 


1766 


1768 




2o7 1* 


convpt 


0141^6 




2303t 










001470 


428 4 














1 096 


1407 


358 1 i 








022744 


764 
3592# 


928 


937 


1025 


i 034 






166# 


9S7* 


1230 






CSTART 


001 514 


444* 


755» 


757 


778* 


793* 






1 66 3* 


3119 


3192* 


3217 




CTPLC 


022770 


1440 


3588# 








CTPLCA 


007 4 4 


1318 


1397i 


265 1 






CTRLCB 


u u / U V u 


107 3 


13B8* 


3259 






CTFifC w 


007200 


1399 


1 41 11 










007204 


1398 


! 41 3* 


260 1 


2637 








347 # 












I ^ ^ i ' 














007626 


1 527 9 


2564 








n AfTDC ■ 

Ufl rCi nv ■ 




25454 










OATTLG 




3919 


1 S27* 




1639 




DDPPTR 


000042 


205 9 












• ^ 


1375 


1656# 








OCCV AL 


02ft5 1 3 




4 3 $ 








DEPPCT 


?aa A^? 


295 # 


19321^ 


1568* 


1 592* 


1593 






447 


2569t 












743 


B 1 01 








DCpPxJ 


003630 


6 20 i 


622 








DCs 


21 


1 979# 


3825 










0123 34 


1408 


1941 


19441 










2409 


19 39* 


1949 


1 965 




DOT 


0227 ^ 7 


534 


1 695 


1835 


2623 


39801 






3240 


32681 








D5T&0P 


A A 1 A 


27 1 * 


625* 


627* 


689* 


692 




A A A A 1 A 


1991 












00467 


762 


1 


... 

3 


.... 
If u • 


' fi'~ 


£NDPS8* 


104402 


25 391 










CNDSV A 


OOSO 2 2 


982 


1 020 fl 










005214 


1 057 




1806 






VMnc 

BtnUO V V 


OOSO ^ 4 




lOlSi 










A AK 3 A A 


1 053 


1058 


1060 


1 072 


1 n7 4 1 




005 104 






1133 


1146 


1 156 


ENDSVF 


00527 2 


105 1 


1 07 1 * 








ENDSVG 


005160 


1045 


1052i 


3195 






ENDS ■ 


104403 


2541* 










EPCVT ■ 


000030 


1589 


823 


876* 


878* 


883 


EBPIND 


001017 


2469 


810* 


864* 


866* 


868* 




001254 


3439 


577 








ERRNM8 


026327 


933 


940 


397911 






EPRNS « 


104410 


2551 9 











1095 
815* 



1102 3278 3279 3281 3294 3295 3298 
869* 874 986 1080* 1416* 1420* 1422* 



1603 



712 



1631 



795* 1625* 1638* 



977 
870 



1627* 
886 



1630* 
942 



1780* 
951 



1962 
957 
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CROSS 1 


REFERENCE 


TABLE 


— USER , 


EPROPS* 


104404 




2543* 












ERRPOS 


001154 




305* 


833* 


834* 


837 


845 


854 


EPPSVC 


004042 




742 


868* 










ERRTIM 


020053 




926 


1023 


3099* 


3291 






ERSVCA 


004050 




865 


867 


869* 








ERSVCB 


004116 




877 


879* 










EBSVCC 


004122 




890» 


892 










ERSVCl 


004034 




742 


866* 










ERSVC2 


004024 




74J 


864* 










ERSVND 


004576 




806 


923 


956 


975* 






ERSVX 


004332 




860 


910 


922* 








EXITS « 


1 04400 




2535« 












EXIT. 


005736 




1173» 


1241 


2534 








TtTTT. 






TTTtr 


TTN-* 










EXIT?. 


np"i774 




11851 


l?ni 


1223 


1251 


1305 




FAKESR 


001004 




234* 


467 


506 








FATAL 


024100 




3567 


3695* 










riLCNT 


001 306 


G 


351 


359* 


1512 


2132 






riLCTR 


001020 




247» 


1512* 


1514* 


1519* 






PILL 


013?14 




21091 


3831 










TILLER 


001307 


G 


351 


360* 


1515 








riLLID 


001324 




370t 


1694* 


2109* 


2133 






FILLNM 


013634 




794 


999 


1951 


2211* 


3289 




GETADR 


01 3450 




1723 


2114 


2163* 








GETNAM 


013662 




198S 


2111 


2222* 








GETNUM 


013516 




2153 


2163 


2181* 








GETPA«» 


104411 




993 


999 


990 


7557* 


3557 


4301 


CETPA. 


021272 




2556 


3343* 










GTOK 


010554 




16661 












GTOKX 


010560 




16671 












GTOK I 


010562 




16681 


1676 


1678 








GT0K2 


05 0604 




1669 


1677* 










GWBUF8« 


104412 




2555» 












GWBUF. 


021150 




2554 


3312* 










KARDSRc 


177570 




76i 


463 










HCORSV 


001230 




332« 


2018 


4186* 








HCbR12 


001226 


G 


32» 


330* 


1854 


1859 


2006 


2008* 








4131* 


4181* 


4185 


4195 


4305 


4223 


HCR12A 


001274 




352* 


2738 


2739 


4177* 






HLT 


023746 




1262 


1294 


2528 


2583 


3568 


3676* 


HMS 


017310 


G 


331 


2947* 


3076 


3146 






HNGFLG 


0013*4 




3881 












HHGTIM 


001362 


G 


34( 


401* 


3237 








HOLDS 


0JS667 




2679 


2BR0 


2886 


2896 


2898 


2908 








2983 


2986 


2997 


3913* 






H0LD6 


025675 




965 


966 


2142 


2143 


2157 


2158 


H0LD8 


025706 




2150 


2151 


3917* 








HOP 


01 4166 




2296 


2300* 










HOURS 


001405 


G 


331 


416* 


2978* 


2979* 


3079 


3080 


HUN6CK 


020434 


G 


341 


3190* 










IE ■ 


000100 




t43« 


543 


1347 


1400 






IMIT ■ 


000022 




15S« 


625 










INPUT 


002162 




536 


540* 


1696 


1637 






INVADR 


023344 




2175 


3632* 










mvcol 


023131 




1662 


36061 










INVCD2 


023203 




1741 


3614* 











2016* 
4244 



2920 
2713 



2738* 
4292 



2922 
2714 



2793 
43l5» 



2931 
3915* 



2658 
4316* 



2977 



2871 
4317* 



2982 
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CROSS BEFEPENCE 


TABLE 


USER SYWBOLS 




INVCD3 


023241 


1745 


3620* 














INVC04 


023316 


1841 


3628* 














IHVCWD 


023107 


1690 


3602* 














INVNAM 


023370 


2264 


3636* 














INVTRP 


023040 


2527 


3595* 














lOBKID 


001060 


2731 


558 


583* 


592* 


S99 


6)0 


633 


635* 






2609* 


263B» 


3515* 


3553* 










100 


027252 


1 48 


678 


1292 


1 298 


2488 


4017* 


4093 




lOOL ■ 


000620 


1451 


146 


2493 


4017 










TriAT.TMB 


30072 


148» 


676 


1296 












t uwo y 


U u J u " u 


694* 


722 














lOOSVB 




710# 
















lOQSVC 


002742 


557 


676* 














lOOSVO 


003106 


7041 


1645 














XOOSVG 


003032 


632 


691 


693* 


786 










lOOSVM 


003016 


442 


689* 














iboUE 


001006 


237« 


555 


679* 


1166 


1288 


1 300* 


2483 


2484 


lOQl 


001 074 


279« 


129" 


1292* 


1 296 


I 298* 


1299* 


1301* 


2489* 


I0Q2 


001076 


2flO» 


676 


678* 


680 


681* 


1290 


2490* 




lOTV 


000020 


194* 
















ITOA 


01 3426 


2119 


2121 


2155* 


2612 


2856 








ITOAX 


U I J 5 J V 


2138* 


2866 


3547 


3560 










ITOAP 


013372 


2146* 
















ITOUT 




2144 


2152 


2159* 












KAY 


02 ^5 J 


2887 


3742* 














n pur lju 




I 379 


3649* 














KBPTP 


001036 


264* 


537* 


542* 


1324 


1 343* 


1 344* 


1354 


1 356* 






1665 


1684« 


2181 


2206* 


2222 


2270* 


2282* 




KBSPVC 


006552 


213 


1314* 














KBUF 




542 


1324 


1354 


1 361 


1 366 


1 373 


4009 1 




KBUFL * 


000040 


144* 


1 324 


4010 












KIPAPO* 


1 72340 


too* 


1581 


3358 


3533* 










KIPAPl* 


1 72342 


101* 


487» 














KIPAR2* 


1 72344 


102» 


3438* 


3442* 


3443 


3445* 


3446* 


3447 


3448* 






3779* 


4166* 


4168* 


4173 


4216* 


4232* 


4261* 


4280* 


KIPAP3S 


1 72346 


103* 


3439» 


3447* 


3449* 


3454* 


3455* 


3456* 


3462 


KIPAP7V 


172356 


104* 


1912» 














KIPDPO* 


1 72300 


95* 


1903 














KIpDRls 


172302 


96* 


3524 














KIPDP3* 


172304 


97* 


480* 


3423* 


4159* 










KTPDP3> 


1 72306 


98* 


3424* 














KIPDP7B 


1 72316 


99* 


1913» 














KLOCK 


17550 


511 


3018* 














KONTRt 


001500 


432* 


1766» 


1767* 


1768 


2091* 


2092 


2099* 


2100 


KTDIS 


024007 


2009 


3685* 














KTERP 




1874 


2581* 














KTFATL 


024050 


2582 


369l# 














KTINTT 




479 


514 


1430 


1874* 


2019 


2748 


4158 




KTOFF 


012562 


1999* 


3834 














KTON 


012632 


2014* 


3837 














KTON« 


024615 


516 


2023 


3757* 












KTPPES 


001304 G 


36* 


356* 


477 


512 


531 


1428 


1575 


1610 






2678 




2728 


2743* 




3347 


3414 








4191 


4211 


4227 


4254 


4275 








KTSAV 


001272 


351* 


2736 


2743 


4113* 










KTSETO 


012150 


1901* 


3412 















SCO 0145 



637 



639* 



660* 1811* 



1357 



1361* 1366 



1372* )373* 



3493* 3498* 3506* 



3494* 3495 



1743 
4109* 



1909 
41 J2* 



2002* 
4113 



2017* 
4134 



2605 
4176* 
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CROSS BEFFRENCE TABLE -- USER SYMBOLS 



KTTEST 


027530 


4132 


4134* 


4179 












KWllL » 


*••*»* G 


33* 


398 














KWllP * 


*»••«* G 


33* 


399 














KYBDV 


000060 


213* 
















LCLEARs 


»«•»** G 


34* 


402 














LCbR12 


001224 G 


32* 
4242 


329* 
4270 


1852 


3442 


3501 


3770 


4128* 


4130* 


liDBRK. 


006366 


1274* 


2548 














LDIOO 


006402 


1275 


1283* 














LOTYPQ 


006256 


1 191 


1 194 


1196 


1 198 


1205 


1209 


1210 


1217 


LGHOLD 


001474 


430* 


1758* 


1763 


2654* 


7658 








LOADWC 


024672 


533 


3513 


3769* 


4198 










LOCK 


001327 


373* 


1143 


1707* 


1710* 


2765 


2902 






LOCORE 


001920 


327* 


471 


1849 


2955 


3774 


4)18* 


4171* 


4124 


LOGBUF 


031422 


2709 


2999 


4085* 












LOGIC 


016134 


207 


2732* 














LOGICA 


016144 


2662 


2734* 














LPB 


001174 


317* 


3304 














LPON 


021110 


3303* 


3853 














LPS 


001)72 


316* 


3303 














LPWKl 


021 144 


1391 


3308* 














LPWK2 


021146 


1392 


3309* 














MAP 


012314 


1939* 


3828 














MAPREGb 


170200 


81* 
















MAPPET 


001252 


342* 


3418* 


3521 












MAP22S* 


104415 


2561* 
















MAP22. 


021426 


2560 


3384* 














HAXTIM 


001426 


426* 


3214* 


3232 


3235* 


3237 








MDIRE 


025627 


1940* 


1967* 


3905* 












H0L45 


001333 


378* 


1891 


4105* 


4108* 










MDXCNT 


001022 


249* 


620* 


645* 


659 


1048* 


1137 


27R7 


3271* 


MDXCTB 


001021 


248* 


503* 


640* 


659* 


2777 


2783 


2797* 


3323 


MED « 


076600 


82* 


1762 


1764 


2088 


2657 


2659 


3003 


4324 


MEMCHG 


023724 


2850 


3675* 














MEMGA 


001210 


323* 


3544 


3546 


3559 


4304 








MEMERF 


001335 


380* 


2847 


2851* 


4299* 










MGMERR 


001472 


429* 
















HEMPA 


001206 


332* 


3543 


3545 


3558 


4303 


4314 






MGMSBE 


001214 


325* 


4302* 


4307 












HGMVA 


001204 


321* 


3555* 


3557 


4300* 


4301 








MEMWAS 


001216 


326* 


4234* 


4235 


4282* 


4285 


4310 






MEM12 


001212 


324* 


4315 














MERR 


030500 


4236 


4286 


4298* 












MGRRl 


026344 


2849 


3983* 














MERB2 


026365 


3986* 


4306 














MERP3 


026400 


3988* 


4309 














MGPR4 


026413 


3990* 


4312 














NFLAS 


001343 


387* 
















MINIT5 


001410 


419* 


2983* 


3082 


3083 


3149 


3150 






MMINS 


026121 


3149* 


3150* 


3948* 












MOD 


913222 


2110* 


3819 














MODADR 


001136 


298* 


700* 


1175 


1192 


1206 


1220 


1637 




MODCNT 


001015 S 


36* 


244* 


1049* 


1052 


1056 


1071 


1794* 


1802 


MODCTR 


601016 e 


36* 


245* 


588 


631* 


1808* 








MOBEND 


02577S 


1029 


1036 


3929* 












MODPTR 


001040 


2651 


594* 


595 


616 


665* 


668* 


718 


1910* 



1925 1829 3257 3272* 



QABH DEC/Xn STANDSBD 


MONITOR 


MACVl 1 


27(10065 


23-APR' 


•77 OOill 


PAGE 


146 














D)8o)l8M,pll 21-APR-77 


12(42 
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SEQ 


MOOO 


026522 S 


32* 


470 


668 


1115 


1753 


1770 


1810 


1944 


1991 


2272 


3120 


3213 


324 J 






4008t 


























MQOREA 


001124 


293* 


155C* 


156 2» 






















MOOPPA 


001122 


292f 


i569» 


1574 






















M0DR13 


001 J26 


2941 


1583 
























HODHCA 


0011 16 


290* 


1553» 


156S# 


1598* 


1600 


















bODWPA 


001114 


2991 


1570* 


1572 


1597* 


1601 


















M0DW1 2 


00U20 


291» 


1582 
























MOPE 


010576 


1674* 


























HQVBNK 


001250 


341* 


3453 


3454 


3458* 




















HOvriiG 


001345 


389* 


34l9» 


3433* 


3532 




















MOVING 


001325 


371* 


2603 


3425 


3430* 


3459* 


3504* 


3510* 














MSCONT 


003326 


751 


754* 
























H5ECS 


026124 


3151» 


3152* 


3949* 






















HSGDS ■ 


104422 


1635 


2571* 
























MSGD. 


003466 


743 


790* 
























MSGDl. 


003556 




806* 
























HSGFLG 


001346 


J " ; 


750» 


752* 


760 




















MSGNS » 


104411 


2553* 


























HSGN. 


003322 


743 


752* 
























MSGS$ B 


104416 


2563* 


























MSGS. 


003312 


743 


750* 
























MSGS s 


! 04406 


505 


508 


516 


520 


E 26 


534 


1261 


1262 


1293 


12*4 


1346 


i 360 


1374 






1379 


1401 


1405 


1406 


1407 


1440 


1662 


1690 


1695 


1741 


1745 


1 835 


1841 






i96S 


2009 


2023 


2027 


2043 


2057 


2059 


2067 
















2158 


2175 


2264 


2527 


2528 


2547* 


2582 


2583 


261 1 


2621 


2673 


2640 


2650 






2676 


2704 


2849 


2850 


2854 


2885 


2886 


2887 


2907 


2908 


2930 


2931 


3034 






3540 


3556 


3567 


3568 




















MSG. 


003426 


743 


776* 
























MSGl. 


003444 


759 


771 


780* 






















MVCODE 


021474 


528 


1067 


1390 


1751 


1839 


2607 


2753 


3404* 












MVCOOS 


021564 


3420* 


























MVCODl 


021574 


3422* 


35l9 
























MVC002 


022040 


3441 


3451 


3457* 


3496 


3503 


















MVC003 


022312 


3497 


3504* 
























HVDOWN 


001330 


374* 


3440* 


3450* 


3511 




















MVEPR 


022564 


3479 


3487 


3553* 






















MVHAP 


022412 


3434 


35l8 


3521* 






















MVHSG 


022366 


3512 


3515* 
























MVRTBY 


022060 


3460* 


3566 
























MXWBF 


001256 


344* 


1859* 


1862* 


1863* 


1864* 


1865* 


1866* 


13«7» 


1368* 


1870* 


2832* 


2833* 


2834* 






2835» 


2836* 


2837* 


2838* 


2840* 


3 320 


3322 














NEW = 


• »•••« II 


28 


37 


152 


321 


343 


823 


"70 


876 


8 8 3 


5 i i 


957 


977 


1 160 






1627 


1780 


1962 


2537 


2541 


2549 


3573 


3766 


3907 


3956 


3979 






MOCLK 


024317 


3034 


3721* 
























NOKT 


033776 


520 


2027 


3683* 






















SOMEN 


030476 


4210 


4297* 
























NOPAB 


n24o21 


2059 


2067 


3687* 






















NDSWR 


024*33 


508 


3760* 
























NSTOP 


1^01 352 


394* 


651» 


1145 


1812* 


2769 


2804 
















NUMBEA 


001052 


270* 


895 


901 


992 




















NUMBER 


001046 


268* 


735* 


817* 


892* 


893 


898* 


899 


990 


993 










NUMBPA 


001050 


269* 


894 


900 


991 




















NUMPWS 


025551 


2930 


3894* 
























NUMSYS 


025531. 




1991 * 
























OACNV 


014140 C, 


32* 


850 


852 


888 


890 


912 


914 


964 


995 


1954 


1 957 


2156 


2291* 
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SCO 






2702 


2712 


4308 


4311 




















OACNVX 


014152 


830 


841 


848 


996 


902 


908 


920 


997 


2141 


2295* 


2699 


4315 




OACNVR 


"14160 


2149 


2298* 
























OASCEA 


001112 


286* 


2291» 


2300* 


2322 


2332 


2337 
















OFFMX 


001240 


336* 


1063 


1739 


2739* 


4105* 


4196* 
















OFFSET 


001242 G 


34* 


337* 


601 


605 


1061 


1786 


) 790 


1804 


1846 


1853 


2752 


2790 


2796 






2818 


2832 


3429* 


3431 


3436 


3438 


3448 


3455 


3491 


3505* 


3506 


3507 


3509 






3522 


3533 


3542 


3771 




















OFFSTD 


001 244 


338* 


527* 


1061# 


1062* 


1063 


1065* 


1 399* 


1711* 


1747* 


1838* 


2752* 


3409 


3416* 






3431 


3435 
























0FF5IM 


001246 


339* 


3429 


3435» 


3436 


3439 


3449 


3456 


3491 


3495 


3500 


3505 






OPEN X 


000000 


1 15* 


204 


208 


209 


234 


237 


238 


239 


240 


241 


242 


243 


244 






245 


246 


247 


248 


249 


25 


251 


252 


253 


254 


255 




258 






260 


261 


262 


264 


265 


266 


267 


268 


269 


270 


271 


272 


273 






274 


276 


2T# 


?77 


278 


279 


780 


291 


282 


383 


5R4 


J«S 


2?S 






289 


290 


291 


292 


293 


294 


?95 


296 


207 


298 


299 


3CD 


3;i 






302 


303 


304 


305 


306 


307 


321 


322 


323 


324 


325 


326 


327 






329 


330 


332 


334 


335 


336 


337 


338 


339 


341 


342 


346 


347 






348 


349 


350 


356 


361 


362 


363 


364 


365 


366 


367 


370 


371 






372 


373 


374 


375 


378 


379 


380 


384 


305 


3B6 


387 


388 


389 






390 


391 


393 


394 


395 


396 


419 


420 


*2! 


422 


423 


424 


425 






426 


42B 


429 


430 


443 


444 


448 


4020 


4021 


4022 


4023 


4024 


4025 






4026 


4027 


4028 


4029 


4030 


4031 


4032 


4033 


4034 


4035 


4036 


4037 


4038 






4039 


4040 


4041 


4042 


4043 


4044 


4045 


4046 


4047 


4048 


4049 


4050 


4051 






4052 


4053 


4054 


4055 


4056 


4057 


4056 


4059 


4060 


4061 


4062 


4063 


4064 






4065 


4066 


4067 


4068 


4069 


4070 


4071 


4072 


4073 


4074 


4075 


4076 


4077 






4078 


4079 


4080 


4081 


4082 


4083 
















PACNBL 


012232 


1434 


1918* 


2056 






















PAMSG 


015776 


1 928 


2692 


2697* 






















PAMSGl 


01S032 


2622 


2677 


2708* 






















PAOFF 


024034 


2081 


3689* 
























PARERR 


015672 


222 


2510 


2666* 


4348 




















PARTAB 


001 430 


427* 


1922 


2073 


2680 


4332 


















PARVCT 


000114 


222* 


2510* 


2511« 


4348* 




















PASENO 


005310 


741 


1078* 
























PASREti 


001033 r. 


36* 


260* 


1139 


1825* 


1 826* 


1827* 


1828* 


1831* 












PASTOT 


001032 


258* 


1134* 


1139 






















PASTTM 


020062 


1085 


3101* 
























PCLEAR" 


•«•»»• S 


34* 


403 
























PCONT 


025357 


2703 


3871* 
























PDP70 » 


• ••*«* [1 


1 


27 


28 


29 


288 


369 


427 


501 


518 


522 


528 


829 


893 






990 


997 


1066 


1390 


1432 


1571 


1582 


1727 


1751 


1756 


1839 


1 845 


1912 






1916 


2004 


2022 


2052 


2086 


2104 


2465 


2594 


2599 


2607 


2618 


2619 


2649 






2652 


2664 


2751 


2753 


2779 


2790 


2796 


2798 


2818 


2832 


2871 


2994 


3351 






338] 


3409 


3414 


3541 


3557 


3560 


3573 


3580 


3640 


3666 


3672 


3770 


3795 






3860 


3921 


3951 


3960 


3967 


3986 


4110 


4162 


4184 


4200 


4301 


4305 


4319 


PDREND 


001302 


35S* 


1885 
























PDRTAB 


001276 


353* 


1876 
























PENABL 


023756 


2057 


3680* 
























PERRt 


025330 


2704 


3866* 
























PERR2 


025427 


2676 


38791 
























PIRORC» 


177772 


90* 


4107 
























PIRO$ ■ 


000004 


114* 


454 


1320 






















PIRO. 


006416 


i9i 


1287* 
























porF 


013044 


2065* 


3843 
























POK 


013004 


2047* 


3840 
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PONN 


OllOU 




933 


3047 


3094* 




POPSP ■ 


OOS736 




1401 


1199 


1311 


1339 


POpSPSa 


033S3S 




1411 








PPRES 


001140 




3941 
433S* 


1433 
4349* 


1796 


1918 


PRE6 


0393S0 




3700 


3869* 






PRTV* ■ 


000300 




1360 


316 


3306 




PRTYS ■ 


000340 




139t 








PRTVfi ■ 


000300 




134* 








PRT1C7 « 


000340 




1331 


189 


191 


199 


PS ■ 


177776 




74* 


1889* 


1893* 


1899* 


PSCNT ■ 


000026 




197* 


638 


1001 


1081* 


PSENDA 


00S443 




1087 


1100 


1108* 




PSCNDB 


00S674 




1190 


1197* 






P8TIM 


036111 




930 


1027 


1106 


3946* 


PSM a 


177776 




79f 


1989« 


3036* 


2030* 


PTIHE 


001434 




439* 


3144* 


3147 




PUSH a 


005746 




138* 








PU8H3 a 


034646 




1391 








PHRCNT 


001366 


S 


36* 


349* 


1713» 


3639* 


PWRDN 


015460 




197 


461 


2627* 


2633 


PHRFAI 


023703 




3640 


3672* 






PHprv 


000034 




197* 


461* 


2631* 


2633* 


PHRHUH 


01 7334 




1410 


3916* 






PHRUA 


015592 




3634 


3641* 


2678 


2693 


PHPUP 


015506 




2631 


3633* 






eOVRFL 


023774 




1261 


1393 


3989* 




OTSTA 


003373 




963 


969* 






QTSTB 


003304 




961 


966 


968* 




OTSTC 


003316 




999 


569 


971* 




OUeCNT 


001333 




376* 


544 


593 




OUECTP 


001037 




294* 


944* 


948« 


553» 


aUETST 


002214 




948* 


972 


978 


597 


QUE* a 


104401 




1379 


2937* 






OUE. 


006376 




1279* 


2936 






RANDt a 


1 04420 




2967* 








RAND. 


014914 




3390* 


2966 






RANNUM 


001200 


s 


39* 


319* 


3393 


2412* 


RANHRK 


001203 




330* 


2391 


3411* 




RBUFEAa 


000070 




176* 








RBUFPAa 


000066 




179* 








RBUPSZa 


000072 




177* 








RBUFVAa 


000064 




174* 








RDCUA a 


000103 




89* 








RDFCINa 


000104 




86* 








RDPBA a 


000102 




A4* 








RDSERVa 


000101 




83* 


4324 






RDHHMIa 


000022 




87* 


1762 


3657 




RELGRR 


024420 




3556 


3732* 






RELMSG 


024446 




3940 


3736* 






PELQC 


001315 


G 


36* 


366* 


1141 


2741* 


RE8IA 


015302 




2580 


2591* 






RESINT 


015276 




190 


2990* 


4103 


4329 


RESIV 


OOOOlO 




190* 


4094* 


4103» 


4333* 


RETRY 


001331 




379* 


3497« 


3563* 


3564 


RLOOP 


01*934 




2394* 


2410 







1245 
3094 



198 
1089 



1390 
3069 



214 
1133 



1319 
3069 



333 
1779* 



1349 
3619 



1383 
1999 



1399 
2693 



1413 



3668 



1879 



3674 



1888 



2997 



SEQ 0149 



4321* 



3191* 3535* 4119* 



1188 



1348 



14SS 



4117* 4197* 
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RHODE 


001311 


362» 


902» 


571 


1393 


1396* 






2661 


3067 








ROT 


001035 


262* 


3332* 


3334* 






ROTBUr 


016304 


2761* 


3335 








ROTBl 


(116916 


3797 


2800* 


2820 






B0TB2 


016554 


?794 


2809* 








R0TB3 


016600 


2901 


2803 


2814* 






R0TB4 


01K636 


2819 


2821* 








ROTCHK 


016740 


509 


2039 


2847* 






ROTCNT 


001316 


367* 


1439* 


2042* 


2767* 


3772* 


ROTCT 


001031 


256* 


1819* 


1817* 


1918* 


1819* 


ROTDIS 


024555 


3043 


3751* 








ROTEHB 


024505 


3854 


3743* 








ROTI 


001313 


364* 


1139 


1813 


2740* 


2761 


ROTL 


001314 


365* 


904* 


2034* 


2041* 


2763 


ROTIibw 


016652 


1856 


3798 


2829* 






POTLOl 


016606 


2791 


3Bl7* 








ROTIWI 


016666 


2624 


2832* 








ROIN 


001337 


382* 


3334 








ROTHUM 


001330 


368* 


1439 


2042 


2772 




POTOFF 


012760 


2041* 


3850 








ROTOR 


012744 


2034* 


3846 








ROTS I Z 


001322 


369* 


1062 








ROTXT 


016650 


2762 


2768 


2774 


2776 


2778 


BSTAT 


001066 


276* 


693* 


710 


717* 


1642* 


R8TRT a 


000062 


173* 


627 


1079 






R8T04 


014752 


1669 


1914 


2344 


2373 


2413 


RTIME 


001414 


421* 


3069* 


3077 


3133 


3137 


RTIHX 


001416 


422* 


3066* 


3078 


3138 


3145* 


RTTK8 ■ 


104423 


1599 


1622 


2573* 






RTTK. 


014504 


2380* 


2972 








RTIl 


003136 


713* 


4099* 








RUN 


010710 


938 


1710* 


3816 






RUWC 


011402 


1774 


1802* 








RUHD 


011620 


1809 


1838* 








RUNDIA 


025369 


3873* 










RUNL 


010700 


1707* 


3813 








RUNPAS 


030066 


3098 


3100 


3103* 






RUHRES 


01U34 


1070 


1795* 


2758 






RUNRFL 


001326 


372* 


623 


1069* 


1750* 


2636* 


RUMSVC 


002324 


977* 










RUHTYM 


017656 


1404 


3045* 


3132 






SAVHI 


001134 


297* 


2860 


2863* 


2865 




SAVLO 


00U32 


296* 


2859 


2861* 


2864 




SAVLOC 


017506 


2999 


2708 


2997* 






8AV04 


014740 


1933 


1649 


1664 


1901 


2302 


8BADR a 


000052 


168* 


1539* 








seknds 


001412 


430t 


2987* 


3084 


3085 


3151 


SEli 


012462 


19731 


3822 








5ETBUF 


027251 


473 


4094* 








SEICHl 


0J77ft* 


4iB2!» 










SETCOV 


c." : -I 


4155 


4157 


4175 


41»0» 




SETKT 




4139 


4158* 








SETsar 


6li*4«' 


1833 


1849* 


2814 






SETNBl 


o:n3n 


1159 


1899* 


2812 






SETXT 




4132 


4189 


42001 







1748* 17S2» 1775 



1B3«» 1B10* 



2799 



2852 
2775 



4116* 4JP0* 



2475* 2989 



3154 



2813 



3256 



2915 



2825* 



2352 
3152 



2390 



2467* 2947 



QABM DEC/Xll STANDARD MONITOR MACYll 27C1006) 23-APB-77 OOlll PAGE 150 



0X0»BM.P11 31-APR.77 


12143 




CROSS REFERENCe 


TABLE -- 


USER 


SYMBOLS 












SEQ 


SHORT ■ 


****** 


1 


27 


28 


29 


145 


231 


288 


316 


351 


395 


421 


474 


510 






532 


617 






1061 


1077 


1 083 


1 093 


1 1 01 


1110 


1 1 31 


i 


i 403 






1409 


1428 




1562 


1569 


1597 


1610 


1707 


1714 


1723 


1756 


1845 


1856 






1873 


1997 


9nA« 
aSo. 


2084 


2439 


2500 


2510 


2581 


2599 


3603 


2619 


2627 


2642 






3664 


2734 


2791 


2795 


2817 


3826 


2857 


2869 


2994 


3191 


3196 


3303 


3339 






3395 


3573 


3580 


3602 


3666 


3680 


3811 


3851 


3866 


3935 


4008 


4010 


4019 






4104 


4157 


4158 


4184 


4319 




















1 06S5 


1700* 


2122 
























SLDS 


012314 


1975 


1984* 


























012514 


198St 


























SliDSB 


012530 


1721» 


1973» 


1 979* 


1989* 




















SLD5C 


1 2$42 


1986 


1991* 
























8LD8D 


01 2546 


1992t 


1995 
























SLD8E 




1722» 


1974» 


1 QBn* 

1 QQ? 


1994* 




















SLDSL 


012536 


1987 


1990f 
























<iihmr * 




93t 


1893 
























8PB0T 




460 


498 


540 


1387 


2598 


3618 


2634 


3534 


4Q14I 










8PCFLG 


001010 


239» 


1656 


1658* 


1 692» 


1701* 


















can tutb 




1561 


622 
























SPSA V 




304» 


701» 


1184 


AAA 


1222 


3190 


















027252 


2593 


2608 
























SB 


n A 4 4 ? £ fl 

UO 1 i f O w 


35* 


318* 




465 


467* 


506 


758 


802 


922 


975 


979 


1086 


1595 






3071 


3142 
























5RETBN 


001056 


272* 


1659 


1700* 
























o27ol 2 


1894 


4oi2» 
























88R0 ■ 


1 77572 


781 


482* 


* 


515* 


1431* 


2005* 


2015 


2020* 


2581* 


3630* 


2644* 


2646* 


2730* 






2746 


2749» 




341 3* 


4111* 


4160* 
















8SB3 • 




79» 




























001534 


229 


231 


333 




413 


459* 


2757 


4088 












8TABT2 


002042 


5141 


























STARTS 


002062 


513 


520* 
























stIt'''** 


002066 


5)9 


522* 
























STAT 


000020 


153* 


597 


603 


608 


618 


693 


694 


697 


1020* 


1039 


1046 


1119 


1121 






1149 


1152 


>i?o* 




1781* 


1783 


1784 


1788 


1792 


1795 


1798 


1947 


1956 






1999* 


1994* 


3219 


3221 


3323 


3335 


3227 


3268* 


3269 












000 ' 1 


lS4t 






























4116* 




























A A 1 A? A 

urn < 4 


251» 


581 


586 


1042 


1050 


1131 


1147* 


2771* 


3773 


3806* 


3241 






5Ufl ftR I 


022753 


1401 


3584* 


























000032 


159* 


1176 


1540 






















SVRl ■ 




1601 




























A An A 1 £ 


161 • 


























avRS ■ 


A An A A n 


162* 




























A AA aA9 


163* 




























000044 


164* 




























000046 


165* 


622* 




1221* 


1634* 


1644 
















SY8BAD 


A'9 4 4 il K 


2650 


3702* 
























SVSCNT 


001264 


348* 


1712» 


2602* 


2645 


2647* 


2648 


2894 














SrSERI 


OOt 310 


361* 


541* 
























SY8GRR 


023601 


2611 


36601 
























SYSEPl 


023420 


2621 


3640* 
























srsiz 


017052 


510 


2871* 
























SYSIitM 


001 350 


392* 


2648 
























SYSNU** 


017140 


1409 


2992* 
























SYSSIZ 


024465 


2885 


3739* 
























TABADR 


001064 


275* 


754» 


768 


872* 


939 



















OABM DEC/Xll STAWD4RD 


MONITOR 


MACYll 


27(1006) 


23-APP- 


■ 77 OOlU 


PAGE 


DXQARW.PII !l-app.77 


12|42 




CROSS BErrSENCE 


T&gt.E " 


USER S' 


TENPWR 


014472 




2355 


2376* 










TFLiG 


001351 




393* 


3069 


3097* 


3099* 


3101* 


3114 


THRS 


026077 




3079* 


3090* 


3091* 


3943* 






TIHX 


026025 




3290 


3296 


3935* 








TIMXl 


024230 




3280 


3711* 










TITLE 


022672 




505 


3573* 










TKB 


001164 


G 


35* 


313* 


1315 


1326 






TKS 


001 162 


G 


35* 


312* 


543* 


1314* 


1347* 


1400* 


TMIMS 


07*101 




3082* 


3093* 


3944* 








T0P12S 


014622 




1571 


1573 


2421* 


4123 


4313 




TOTIH 


026066 




929 


1026 


1105 


1406 


3297 


3941 * 


T018S 


014672 




1845 


2446* 


2957 


3541 






TPB 


001 170 


r. 


35* 


3l5» 


1392* 


1522* 


3304* 




tP& 


a0.1L66 


G 


IS* 


3 1 4* 


1391* 


1465* 


1 496* 


33a3* 


TRAPX s 


000024 




25311 


2535* 


2537* 


2539* 


2541* 


2543* 








2559* 


2561* 


2563* 


2565* 


2567* 


2569* 


TRCI 


005700 




192 


1162* 










TRCIA 


005706 




1164* 


1167 


4098* 








TRCIB 


005724 




1168* 












TRCIC 


005710 




1163 


1 165* 










TKCPC 


00)070 




277« 


568 


716 


719* 


1 168* 




TRCPSW 


001072 




278* 


717 


1169* 








IRCV 


000014 




192* 












TPPINT 


015134 




201 


2518* 










TRPLIW 


015246 




2523 


2573* 










TRPTAB 


015176 




2522 


2532* 










IBPV 


000034 




201* 












TPP2 * 


01 1 000 




738 


2522 


2530* 








TSECS 


njstoe 




1084* 


3085* 


3945* 








TSTMEM 


03007? 




4182 


4205* 










TSTWl 


010200 




4227* 


4243 










TSTM2 


030312 




4254* 


4271 










TSTM3 


030400 




4275* 


4293 










ITPIV 


000064 




215* 












TTSRVl 


007436 




455 


567 


1456 


1487* 


1520 


1521 


TTYBSY 


001014 




243* 


562 


729* 


790* 


Q93* 


1038* 


TTYBYT 


001260 




346* 


1345* 


1346 








TTYLNK 


001530 




455* 


1456* 


1504* 


1510* 


1516* 


1520* 


TIYSPV 


001526 




215 


454* 


3305 








TYPADP 


001 104 




283* 


1458* 


1487 


1500* 






TYPCTR 


0011 10 




295* 


565* 


1523* 








lYPDAT 


004752 




791 


796 


799 


813 


816 


820 


TYPE 


007366 




772 


779 


805 


950 


954 


956 








3549 


3562 










TYPES 


007476 




1488 


1500* 










TYPEC 


007512 




1503* 












TYPED 


007562 




1516* 












TYPEE 


007556 




1513 


1515* 


1519 








TYPEL 


007610 




1502 


1505 


1511 


1517 


1522* 




TYPEN 


007350 




763 


927 


936 


944 


1024 


1033 


TYPEO 


030072 




147 


728 


1011 


1260 


1266 


2491 


lYPEl 


007352 




1446* 


1449 










TYPLIMb 


031222 




147* 


736 


1009 


1264 






TYPQL ■ 


001130 




146* 


147 


2493 


4018 






TYPOUE 


001007 




238* 


560 


732* 


1014* 


1256 


1368* 


lYPOX 


006172 




1230* 













2545* 
2571* 



2547* 
2573* 



2549* 2551* 



880 
967 



1094 
2493 



1008* 
971 



1101 
4018* 



1448 



1445* 3277 



1456* 3715 



3393 



QABM DEC/XH STANOARO 


MONITOR 


MACYl 1 


27(1006) 


23-APR. 


'77 OOlll 


PACE 


15J 














OXOABM.PJI 21.APP-77 


1 2 1 42 




CROSS REFERENCE 


TABLE 


USER SYMBOLS 












SEO 


TYPO. 


006232 




1244* 


2538 


2540 


2552 


2562 


















TYPOl 


001 100 




2S 1 » 


1258 


1260* 


1264 


1266* 


1267* 


1269* 


2491* 












TYPOl . 


006244 




1 249* 


2546 
























TYPOS 


001102 




282* 


726 


728* 


730 


731* 


1009 


1011* 


1012 


1013* 


1258 


2492* 






TYPQ2. 


0061S6 




1226* 


2542 


2544 


2550 




















TYP03. 


006056 




1 204* 


2568 
























TYPQ4. 


006010 




1191* 


2570 
























TYPREI 


001106 




284* 


1457* 


1497 






















TYPRl 


001 140 




2991 


1459* 


1495 






















TYPR2 


001142 




300* 


1460 


1490 






















tYPR3 


001144 




301* 


























TYPR4 


001146 




302* 


























TYPR5 


001150 




303* 


























TYPSVC 


003166 




564 


726* 
























TYPTAB 


003250 




738 


741 * 
























UIPARO" 


177640 




110* 


1581* 
























UIPARla 


177642 




1 1 1 * 


1582* 


1619* 






















UIPAR2> 


177644 




112* 


1583* 


1615* 






















UIPARTa 


177656 




113* 


1584* 
























UIPDROa 


177600 




106* 


1577* 
























UIPDRla 


177602 




107* 


1578* 
























UIPDR2B 


177604 




108* 


1579* 
























UIPDR7» 


177616 




109* 


1580* 
























UMODE a 


140000 




92# 


1569 


1889 






















USP 


027002 




1890 


401 1 * 
























WASADRa 


000054 




170* 


1602* 
























HBFEA 


001234 




334* 


1648 


1851* 


2811* 


2823* 


2630* 


3318 














WBFLG 


001023 




250* 


1769* 


2789* 


3325 




















KBur 


001232 




3331 


1847 


1849* 


2779 


2809* 


2821* 


2829* 


3317 












WBUFEAb 


000076 




t79» 


1553 
























WBUFPAb 


000074 




178* 


1552 


3316 






















HBUFROa 


000100 




180* 


























WBUFSZa 


000102 




1 8 1 * 


























HBUF12 


001236 




335* 


1 852* 


1653* 


1654 


1 863 


2790 


2792» 


7793 


2807* 


2817* 


2818 


213) • 


2833 


WCASE 


025006 


G 


33* 


3775 


3794* 






















WCASEB 


025106 


G 


33* 


414 


3790 


3606* 




















HTWHMIa 


O0O222 




88* 


1764 


2659 






















XCNT 


001026 




253* 


1600* 


1815 


1621 




















XFLAS a 


000005 




152* 


621* 


3325 


3327* 




















XFRFLG 


001030 




255* 


3422* 


3452* 


3517 




















YES 


001062 




274* 


2125 


2165 


2184* 


2204* 


2223* 


2246 


2248 


2251* 


2254 


2261 


2269* 




ZERO 


001222 




328* 


























aCHBFC 


001334 




379 * 


1 624* 


2785* 


2788* 




















IPASS 


025756 




766 


932 


939 


3925* 




















a 


030762 




30* 


1 86* 


199 


203* 


212* 


219 


221* 


228* 


230* 


397 * 


417* 


418* 


477* 








1286 


1561 


1564 


1629 


1671 


1709 


1796 


1799 


1850 


1869 


2585 


3405 


3587 








3813 


3816* 


3819* 


3622* 


3675* 


3828* 


3631 


3934* 


3837 


3840* 


3843 


3846* 


3850 








3853 


3856* 


3859 


3912* 


4007* 


4010* 


4011* 


4013* 


4015* 


4017* 


4018* 


40R5* 


4097» 



. AB8. 032022 000 

000000 001 



ERRORS DETECTED! 



OABM DEC/Xll STA»in»PD MONITOR MuCYll 27( 1006) 23-APR-77 OOlll PAGE 153 

DXQARH.Pii 21.APR-77 J2l42 CROSS BEFERPNCC TABLE USER SYMBOLS SEO "1!54 

DEFAULT GLOBALS GENERATEDl 

DXOAeM,DX0ABM/S0L/CPFlSYM»DXOABM 
RUN-TIMeI 5 10 1 SECONDS 
RUN-TIME p»TTOl 44/18»7.4 
COPE USEPj IlK (22 PAGES) 



a«BD DEC/XU SHORT MONITOR 
D*6*BM.pii 21-APR-77 12»42 



MACYU 27(1006) 22-APR-77 12|53 PAGE 1 



PPODUCT CODEj 
PRODUCT NAHEj 
DATEi 

HAINTAINEPi 



IDENTinCATIOK 
HAIKDEC-n-DXQAE-D-L& 
DEC/Xll - SHORT MONITOR 
JANUARY 1977 
DIAGNOSTIC GROUP 



OAEO OFC/Xll SHORT MONITOR MACYU 27C1006) 22-APR-77 12t53 PAGE 2 



0X0AP«.P11 21-APR-77 12|42 SEQ 

27 .LIST SEQ 

28 .EWABL AMA 

29 .TITLP QAED DEC/Xll SHORT MONITOR 

30 000000 .ASECT 

31 000000 ,«0 
32 

33 .GLOBL l,C0R12.HC0R12,ORCNV,BDCNV,M0DQ,CLnCKL,CLDCKP 

34 .CLOBL KKHL,KW11P|HMS, HOURS, WCASE.WCASPE, CLOCK 

35 .r.lOBl OFFSET, HUNGCK,HVGTIM,LCLEAR,PCLEAR,CHKSUM 

36 .GLOBl. TKS,TK8, TPS, TPBjflLCNT, FILLER, SR.BAVNUM, CAST 

37 .GLOBL MOPCNT,MODCTR,PASREL,RELOC,ALLBIC,KTPRES,PWRCNT 
39 

39 j»»**#»IF RUNNIKG l«ITH AN 11/60 AND ANY SYSTE« TYPE ERROR OCCURS 

40 I (TRAP TO 4, ETC,) "LOGBUF" WILL CONTAIN 

41 I IKE CONTESTS OF SCRATCHPAD LOCAT:0>«S FROM 0-177. SCRATCKfAS 
4? j LOCATIOKS ino-lCi7 ARE PRINTED OUT. 

43 

44 iSWITCH REGISTER OPTIONSt 
45 

46 |SR15sl HALT MODULE AFTER ERROR. 

4? iSP14sl INHIBIT MODULE HALT AFTER 20 ERRORS. 

48 |SR13sl INHIBIT ERROR PRINT. 

49 »SR12«1 ENABLE ENDPAS PRINTOUT. 

50 »SR10»1 PRINT ALL DATA ERRORS IN BUFFER 

51 |SR9«1 INHIBIT "RELOCATED TO " MESSAGE 
52 

53 jMODULE STATUS BIT DEFINITIONS! 
54 

55 J BIT 15»1 rOMOD 

56 ) BIT 14*1 MODULE SELECTED 

57 » BIT 13«1 MODULE DROPPED 

58 , BIT 12b1 extended MODULE 

59 J BIT Hal DESELECT IF PROGRAK IS RELOCATED 

60 I BIT lOol DESELECT IF NOT ON AN EVEN 32K OFFSET 

61 I BIT 09«) NBKMOD 

62 I ALL O'S SBKWOD 



OACD Dec/Xll SHOBI MONTTOB MUCYH ?7{1008J aj-»PI»-77 12153 PAGE 3 

OXOABM.PU 21-APB-77 12(4! 



SFO "157 



iS rEW DEFINITIONS. 



000000 


RO 


■%0 


iGENERAL PURPOSE REGISTER 


000001 


Bl 


■%1 


IGENGRAL PURPOSE REGISTER 1 


000002 


R2 


»%2 


(GENERAL PURPOSE REGISTER 2 


000003 


R3 


■%3 


(GENERAL PURPOSE REGISTER 3 




P4 


*%4 


fCPNPB&fi PURPnciF nirRT4Tir& i 


ooooos 


R5 


»%5 


(GENERAL PURPOSE REGISTER 5 


000006 


R6 


■%6 


(GENERAL PURPOSE REGISTER 6 


Ann AAA 


SP 




yruxnibn xsj nnnUnHKCt lOlOlCf™ U&rAUulJ OIAWI^ 


000007 


PC 


■%7 


(PROGRAM COUNTER 


177776 


PS 


■177776 


(PROCESSOR STATUS REGISTER 


177776 


PSM 


■177776 


(PROCESSOR STATUS WORD 


177570 


HARDSP 


■177570 


(HARDWARE SWITCH REGISTER 


177572 


SSRO 


■177572 


(MEMORY MANAGEMENT REGISTER 


172516 


5SR3 


■172516 


(MEMORY MANAGEMENT REGISTER 3 


170200 


MAPREG 


■170200 


(BASE ADDRESS OE UNIBUS MAP BOX C 11/70) 



OAED OEC/Xll SHORT MONITOR 
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83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 



076600 
000101 
000102 
000103 
000104 
000022 
000222 

177772 

140000 
040000 

172300 
172302 
172304 
172306 
172316 
172340 
172342 
172344 
172346 
172356 



MED 

RDSERV 

RDPBA 

RDCUA 

RDFGIN 

RDWHMI 

WTWMMI 



UMODE 
SMODE 

KIPDRO 
KlPDRl 
KIP0B2 
KIPDP3 
KIPDR7 
KIPARO 
KIPARl 
KIPAB2 
KIPAB3 
KIPAR7 



• 76600 

■ 101 

■ 102 

■ 103 

■ 104 

■ 023 

■ 222 



PIROBG ■177772 



■140000 
■40000 

■172300 
■172302 
■172304 
■172306 
■ 172316 
■172340 
■172342 
■172344 
■172346 
■1723S6 



106 
107 


177600 


UIPORO 


■177600 


(USER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 





108 


177602 


UIPDRl 


■177602 


(USER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 


1 


109 


177604 


UIPDR2 


■177604 


(USER 


INSTRUCTIO'I 


PAGE 


DESCRIPTOR 


REGISTER 


2 


110 


177616 


UIPDR7 


■177616 


(USER 


INSTRUCTION 


PAGE 


DESCRIPTOR 


REGISTER 


7 


111 


177640 


UTPARO 


■177640 


(USER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 





112 


177642 


UTPARl 


■1 77642 


(USER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 


1 


113 


177644 


UIPAR2 


■177644 


(USER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 


2 


114 


177656 


UTPAR7 


■177656 


(USER 


INSTRUCTION 


PAGE 


ADDRESS 


REGISTER 


7 



MAINTENANCE FXAMINE AND DEPOSIT INSTRUCTION £11/61) 

LOG SERVICE REG. ADB PE&D 

LOG PHYSICAL BUSS »DR, PEG. SDR, READ 

LOG CUPRENT MICRO «DR, REG. ADR, READ 

LOG FLAG/IMTERPIIPT BEG, ADU. BEAD 

GEN. hHO AM I PEG, ADR. •- READ 

GEN. WHO AM I PEG, ADR. WRITE 

PROGRAMMED INTERRUPT REQUEST REGISTER 

BIT CONFIGl'PATION TO INDICATE USER MODE IN PSW 

BIT CONFIGURATION TO If'DICATE SUPERVISOR MODE IM PS* 



KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 
KERNEL 



INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTinW 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 
INSTRUCTION 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
ADDRESS 
ADDRESS 
IDDPESS 
ADDRESS 
ADDRESS 



REGISTEB 
REGISTER 1 
REGISTER 2 
REGISTEB 3 
REGISTER 7 
REGISTER 
REGISTER 1 
REGISTER 2 
REGISTER 3 
REGISTER 7 
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SEQ 


lis 


000004 


PIFI08 


■ IDT 


J HAKE T! 


r t* ■ ■:' .,; L. . 


i TPAO THPOUGK THE lOT VECTOS 


! 16 


nooooo 


OPE" 


■0 


;USE 


npt 


r.- , •CL'ir' 




is7 


100000 


BIT15 


■ 1 00000 


IPIT 


IS 


DEFINITION 






118 


040000 


BIT14 


*40000 


JBIT 


14 


DEFINITION 






119 


020000 


BIT13 


«2fiO00 


jBIT 


13 


DEFINITION 






120 


010000 


BIT12 


■10000 


»BIT 


12 


DEFINITION 






121 


004000 


BITli 


■ 4000 


tBIT 


11 


DEFINITION 






122 


002000 


BITIO 


■ 2000 


jBIT 


10 


DEFINITION 






123 


OOinOO 


BIT9 


■looo 


I BIT 


9 


DEFINITION 






124 


000400 


BITS 


■ 400 


JSIT 


e 


DEFINITION 






its 


000200 


BIT7 


■ 200 


»B1T 


7 


DEFINITION 






126 


000100 


BTT6 


■ 100 


>BIT 


6 


DEFINITION 






127 


000040 


BITS 


■ 40 


rBiT 


5 








126 


000020 


8IT4 


=20 


J BIT 


4 


DEFINITION 






129 


000010 


BIT3 


■ 10 


jBIT 


3 


DEFINITION 






no 


PO00O4 


BIT2 


■ 4 


IBIT 


2 


DEFINITION 






131 


000002 


BITl 


■ 2 


iBIT 


1 


OEFINITIOR 






1 32 


000001 


BITO 


■ 1 


jBIT 





DEFINITION 






133 
1 34 


000340 


PHTY7 


■ 340 


jBIT 


CONFIGURATION 


FOR 


PRIORITY LEVEL 7 IN PSW 


135 


000300 


PRTY6 


■ 300 


IBIT 


CONFIGURATION 


FOR 


PRIORITY LEVEL 6 IN PSM 


136 


00024Q 


PPTYS 


■ 240 


•BIT 


CONFIGURATION 


FOR 


PRIORITY LEVEL 5 IS P5W 


137 


000200 


PRTY4 


■ 200 


Jbit 


CONFIGURATION 


FOR 


PRIORITY LEVEL 4 IN PSW 


138 
1 39 


005746 


PUSH 


■005746 


f TST 




-CSP) JJUSED 


TO ADD A WORD TO THE STACK 


140 


024646 


PUSH2 


■024646 


»CMP 




-CSP),-(SP) 




tjUSED TO PUT TWO WORDS ON THE STACK 


141 


005726 


POPSP 


■005726 


|TST 




(SP)+ MUSED 


TO DFLETE A WORD FROM THE STACK 


142 


022626 


P0P5P2 


■022626 


»CHP 




(SP)+,(SP)+»USED TO DELETE TWO WORDS FROM THE STACK 


143 
144 


000100 


IE 


■ BIT6 


JDEFINITION OF INTERP'JPT ENBBLE BIT FOB ALL PDP-11 DEVICES 


145 


000040 


KRUFL 


■32. 


»DEFINITION OF KEYBOARD BUFFER LENGTH (IN WORDS) 


146 


000310 


lOQL 


■200. 


IDEFINITION OF I/O 


SERVICE QUEUE LENGTH (IN BYTES) 


147 


000454 


TYPQL 


■ 300. 


IDEFINITION OF TYPING 


SERVICE QUE LENGTH (IN BYTES) 


148 


017572 


TYPLIM 


■TYPEQ+TYPQL 




IDEFINITION 


OF 


LAST WORD IN TYPE QUEUE 


149 


017116 


lOQtlM 


■ IOO+IOOIj 




jDEFINITION 


OF 


LAST WORD IN I/O QUEUE 



OAED DEC/Xll 


SHORT MONITOR 
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-77 


0XQABM.P1 1 


J1-4PIS.77 12:42 






150 




»THE FOLLOKI 


151 




jMONITOp ins 


152 








153 


000005 


XFLAG 


■5. 


154 


000020 


STAT 


■16. 


155 


000021 


STATl 


■17. 


156 


000022 


INIT 


■18. 


157 


000024 


SPOINT 


■ 20, 


158 


000026 


PSCNT 


■22. 


159 


n00030 


ERCNT 


■24. 


160 


000032 


SVRO 


■ 26. 


161 


000034 


SVRl 


■28. 


162 


000036 


SVP2 


= 30. 


163 




SVR3 


■32, 


164 


000042 


SVR4 


■34. 


165 


000044 


SVP5 


■36. 


166 


000046 


SVR6 


= 38. 


167 


000050 


CSRA 


= 40. 


168 


000052 


ACSR 


■42, 


169 


000052 


SBADR 


■42. 


170 


OO0054 


ASTST 


■44. 


171 


000054 


WASADR 


= 44. 


172 


000056 


ASB 


= 46 . 


173 


000060 


AWAS 


= 48. 


174 


000062 


RSTRT 


■ 50. 


175 


000064 


RBUFVA 


■ 52. 


176 


000066 


RBUFPA 


■54. 


177 


000070 


RBUFEA 


= 56, 


178 


000072 


PBUFSZ 


■58. 


179 


000074 


WBUFPA 


= 60. 


180 


000076 


WBUFEA 


=62. 


181 


000100 


WBUFRO 


■64. 


182 


000102 


WBUFSZ 


■66. 


183 
184 
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IONS WHEN REFERRING TO LOCATIONS IN THE HEADER OF A MODULE 

REFERENCE USED TO KEEP TRACK OF WRITE BUFFER USAGE 
POINTS TO THE LOW BYTE OF THE MODULE STATUS WORD 
POINTS TO THE HIGH BYTE OF THE MODULE STATUS WORD 
POINTS TO THE MODULE 'S STARTING ADDRESS 
POINTS TO THE MODULE'S STACK POINTER 

REFERENCES THE LOCATION KEEPING TRACK OF THE NUMBER OF PASSES 
REFERENCES THE LOCATIO"* KEEPING TRACK OF THE NUMBER OF ERRORS 
POINTS TO WHERE THE MODULE'S REGISTER CONTENTS ARE STORED 
POINTS TO WHERE THE MODULE'S REGISTER 1 CONTENTS ARE STORED 
POINTS TO WHERE THE MODULE'S REGISTER 2 CONTENTS ARE STORED 
P0I4IT« TO WHEWB THfl maVWS ffEfilSTER 3 COWTBWTS »RE ST01»E0 
POINTS TO WHERE THE MODOtE'S REGISTER 
POINTS TO WHERE THE "OCULE'S REGISTER 
POINTS TO WHEPE THE MODULE'S REGISTER 
REFERENCES THE BASE AD^PESS OF THE MODULE'S OEVICESCCONTBOL AND 
REFERENCES THE CONTENTS OF THE CONTROL AND STATUS REGISTER 
POINTS TO THA ADDRESS OF WHAT THE DATA SHOULD HAVE BEEN 
POINTS TO ANYSTATUS REGISTERNOT THE SAME AS THE CSB 
POINTS TO THE ADDRESS OF WHAT THE DATAWAS 
POINTS TO THEACTUAL EXPECTED DATA 
POINTS TO THE ACTUAL RECEIVED DATA 
POINTS TO THE MODULE RESTART ADDRESS 
REFERENCES THE VIRTUAL ADDRESS OF THE READ BUFFER 
POINTS THE LOCATION FOR THE PHYSICAL ADDRESS OF THE READ BUFFER 
POINTS THE EXTENDED ADDRESS BITS OF THE READ BUFFER 
POINTS THE SIZE OF THE READ BUFFER 
POINTS TO THE WRITE BUFFER PHYSICAL ADDRESS 
POINTS TO THE EXTENDED ADDRESS BITS OF THE WRITE BUFFER 
REFERENCES THE AMOUNT OF WRITE BUFFER REQUESTED BY MODULE 
REFERENCES THE SIZE OF THE WRITE BUFFER 



4 CONTENTS ARE STORED 

5 CONTENTS ARE STORED 
CONTENTS ARE STORED 
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SEQ 0161 



186 



187 




P U 1/ u U 












000000 


000000 000000 




'word 






189 


000004 


i 35 1 6 


BUSCV 1 








190 


000006 


000340 




PPT Y7 






191 


00001 




BFSTV 

1 


RFSINT 






1 92 


000012 


000340 










193 


000014 




i 


TRCI 




u TO A fir TDAD DHTUTro 


194 


000016 


000000 


• 








195 


000020 


0055 1 


1 


PTRQ 






1 96 


000032 


000340 




PHTY7 




Jrr<tVt."A bUWtK UEVfeiL- MOOUuc. r RU" CUWi(>llj 


1 97 












(TUP Uf nibnlLH bEVfcU Unt-B 


198 


000024 


01 2636 








JPUWC.R PAlu rUlriTCR, 


iftn 


000026 


000340 


■ 


PRTY7 








000030 


A A A A 1 9 








• rMT DriTMTPB 


«2i 


000032 


AAA AAA 




HALT 






202 


000034 


1 2404 


_ 


TPP I NT 




a TD & D DflT UTFD 


203 


000036 


000000 










204 




000040 










205 


000040 


000000 




* wnon 


OPEN 


t IiU Aw r!e>UiU~ Xnl^XLAirjK, 


206 


000042 


oooooo 


uwrr Ji r* 1 


*wnon 






207 


000044 


000000 




*WGPD 






208 


000046 


01 2752 




LOGIC 






209 


000050 


OOOOOO 




OPEN 






210 


000O52 


OOOOOO 




OPEN 






211 


000054 


OOOOOOG 




CAST 




jGLOBAL POIVTPR FOR CAST MODIFICATION 


212 


000056 


000001 




1 




SALSO FOB CAST 


213 




000060 




• b60 






214 


000060 


005644 


KYBDVl 


KBSPVC 




jKYBD INTFRBUPT PDISTEB. 


215 


000062 


000340 




PRTY? 






216 


000064 


001406 


TTPIVi 


TTYSRV 




ITFLETYPE PRINTER SERVICE 


217 


000066 


000200 




PPTY4 







OAED DEC/XU SHORT MnNITOR *"ACYll 27( 1006) 22-APR.77 12(53 P»GE S 

DXOABM.Pit ji.APp.77 12(42 

218 (FROM 70 THROUGH 776 FILLED WITH ,*7 ANH HALT. 

219 

220 

221 

222 

223 

224 (LOAD STARTING SDDpFSSFS 

225 

226 000200 .■200 

227 000200 0001 37 001414 JMP START [GO TO START OF VOMTOP. 

228 001000 .»1000 

229 001000 000137 001414 JMP STRPT :G0 TO START OF vpnyTop, 
230 

231 

232 OO1004 OOOOOO FAKESRJ OPEN (LOCATION OF PSFUDO SWITCH REG, WHEV USED 
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SEQ 0163 



233 






jVARIABLE DATA 


AREA CLEARED 


EVERY TIME RUN IS ISSUED OR "C IS TYPED 




234 
235 


001006 


000 






OPEN 


»IOQUE AND TYPQUE MUST BE IS SAME »ORDit 




236 


001007 


000 


r z r UUE« X 


'byte 


OPEN 






217 


001010 


000 


0r^r UU 1 


HYTE 


OPEN 


iSPCFLG AND DIRIND MUST BE IN SAME WORDIJ 




23S 


OOlOll 


000 






OPEN 






239 


001012 


000 


BKQUEl 


'byte 


OPFN 






240 


001013 


000 


BP AKE I 


BYTE 


OPEN 






241 


001014 


000 


TTVBSy j 




OPEN 


J TELETYPE BUSY 'LAG. 0« NOT BUSY, 




242 


001015 


000 


modcnti 


• BYTE 


0>»EN 




243 


001016 


000 


nut/u ins 




OPEN 






244 


001017 


000 


ERRI^Di 


R YTE 


OPEN 


;0«ERROR, NOT OaOATA ERROR, 




245 


001020 


000 






OPEN 






246 


001021 


000 


MDXCTP t 


BYTE 


OPEN 


lEXTENDED I/O MODULES NOT YET RUN IN CURRENT 


BANK 


247 


001022 


000 


MDXCTl 


R YTE 


OPEN 


•EXTENDED I/O MODULE COUNT 




246 


001023 


000 


WBFIiG 1 


BYTE 


OPEN 


sCURBENT VALUE OF XPLAG BEING CHECKED FOR 




249 


001024 


000 






OPEN 


JSTOP MODULES TO RELOCATE PROGRAM 




250 


001025 


000 


BV^UT 9 
1 1 


'byte 


OPEN 


J BACKGROUND MODULE COUNT 




251 


001026 


000 


XCKT i 


RYTE 


OPEN 


jRUNNABLE EXTENDED MODULE COUNT (TO CALCULATE ROTCT) 


252 


001027 


000 


QUbC It* I 




OPEN 






253 


001030 


000 


XFRFliG S 


*BVTP 


OPEN 






254 


001031 


000 


ROTCT 1 


*RVTr 


OPEN 


fVRLUE USED FOR RUFFEP POTATION TIMEOUT (16 


TIMES 


255 












jXCNT OR 377, WHICHEVER IS SMALLER) 




256 


001032 


000 


PA5T0T i 


BYTE 

• 


OPE«.' 


J ALTERNATE RELOCATION COUNTER- TOTAL ENDPASS 




257 












jCALLS IN CURRENT BANK 




258 


001033 


000 






OPEN 






259 


001034 


000 


BlTiPTUB A 




OPEN 


fBKMOD INSTR CTR- LOADED FROM BKTIME 




260 


001035 


000 


ROTi 


*BYTE 


OPEN 


jMBUF ROTATION RATE CTR- LOADED FROM ROTN 




261 
















262 


001036 


000000 


K BPTR 1 


nPFw 








263 


001040 


000000 


WwUr I 1 


noPM 




; MODULE POINTFR 




264 


001042 


000000 


ft nnDT.nf 
I* WUnuu 1 


_ ' 








265 


001044 


000000 












266 


001046 


000000 












267 


001050 


000000 












269 


001052 


000000 




OPEN 








269 


001054 


000000 




OPEN 








270 


001056 


000000 












271 


001060 


000000 




OPEN 








272 


001062 


000000 




norm 








273 


001064 


000000 




noPM 








274 


001066 


000000 


RST AT 1 


riDPW 








275 


001070 


000000 


TRCPC X 










276 


001072 


000000 


i nv, raR 1 


ODFM 








277 


O01074 


000000 


TOQl 1 


OPEN 




',1/0 QUFU?: POINTERS, 




279 


001076 


000000 


IDQ2J 


OPEN 








279 


oouoo 


000000 


TYPOlf 


OPEN 




jLOAD TYPE OUEUE POTNTFB 




2B0 


001 1 02 


000000 


TYP02J 


OPEN 




fUNLOAO TYPE QUEUE POINTER 




291 


001104 


000000 


TYPADRt 


OPEN 








292 


001106 


000000 


TYPRETs 


OPEN 








293 


001110 


000000 


TYPCTRt 


OPEN 




jIlSFD TO MONITOR CO^iSOLE TELETYPE TO PREVENT 


HANGING 


294 


0011 12 


oonooo 


OASCEAl 


OPEN 




jUSED TO WLD EA BITS FOR OCTAL TO 




295 












JASCII COMVERSinn 




296 


001 1 1 4 


OOOnOO 


DERRCTI 


OPEN 








297 


001116 


000000 


SAVLOi 


OPEN 








2«9 


001120 


oooooo 


SAVKIi 


OPEN 
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299 


001122 


000000 


MODAOPJ 


OPEN 


! ADDRESS OF C"RRENTt,Y EXECUTIVE (lOQ LEVEL) 


290 


001124 


OOOnoo 


TYPRll 


OPEN 


»SAVE LOCATIONS FOR TYPE ROUTINE REGISTERS 


291 


001 )26 


ooonoo 


TYPR2! 


OPEN 




292 


001130 


000000 


TYPR3J 


OPEN 




293 


001 1 32 


000000 


TYPR4J 


OPEN 




294 


001 1 34 


000000 


TYPR5: 


OPE'J 




295 


001136 


000000 


SPSAVj 


OPEN 




296 


001 140 


000000 


ERRPOSi 


OPEN 




297 


0011*2 


000000 


COFLGi 


OPEN 


: INDICATE RET"B*I TO CHECKDATA ROUTINE 


299 


001 144 


onoooo 


CCSRAi 


Ot>EN 





209 



QAED DEC/XU SHORT MONITOP MACYU 37Ct006} 32-APR-77 13lS3 PAGE It 

DXO»BM,Pll 2J-»PP-77 1SI42 



SCO OtSS 



301 






fVARIABIiG AND 1 


FIXED DATA 


AREA 


NOT CLEARED WHEN PUN OR *C IS ISSUED 


3fl3 
303 


noll46 


177560 


IKSl 


177560 










304 


001150 


177562 


TKBl 


177562 










305 


001152 


177564 


TPSi 


177564 




lIF THIS AND NEXT LOC ARE CHANGED, 


306 


001154 


177566 


TPBl 


177566 




(CHANGE 


tOC.S tPWKl AND I.PWK2 IF PRESENT 


307 


001156 


177570 


8Rt 


177570 








(ADDRESS OF THE SWITCH REGISTER 


308 


001160 


123456 


PANNUM] 


1 23456 




(RANDOM 


NUMBER IS CALC'ED AND PASSED HERE 


309 


001162 


022333 


RANffPK i 


23333 




(ALSO 


USED BY RAND. 


310 


001164 


000000 


HEMVA s 












311 


001166 


000000 


MEMpA i 


OPEN 










312 


001170 


000000 


HEME A} 


OPEN 










313 


001172 


000000 


MEMl 2 1 


OPEN 










314 


001174 


000000 


MEMSBEl 


OPEN 










315 


001176 


000000 


HEMNASi 


OPEN 










316 


OOljOO 


oooooo 


LOCORE] 


OPEN 








(STARTING AODR OF FREE CORE ("MULTIPLE OF 1000 OCTAL) 


317 


001202 


000000 


ZEPOl 











(LOCORE EA BITS 


316 


001204 


oooooo 


LC0R12i 


OPEN 








(TOP 12 SITS OF LOW COPE ADDRESS 


319 


001206 


oooooo 


HCORl 2 1 


OPEN 








(CONTAINS ST, ADDR OF HIGHEST BUFFER. 


320 
















((TOP 12 BITS ONLY) 


321 


001210 


oooooo 


HC0R5Vt 


OPEN 










322 


001212 


001414 


HBUFt 


START 








(CONTAINS CURPE»!T WRITE BUFFER ADDR. 


323 


001214 


oooooo 


WBFEA t 


OPEN 








(WRITE BUFFER EA BITS (SHIFTED TO POS 4»51 


324 


001216 


oooooo 


WBUFl 2 1 










(TOP 12 BITS OF WBUF ADDRESS IF USING POTtTION 


325 


001S20 


oooooo 


OPITMXl 


OPEN 








(TOP ALLOWABLE PROGRAM OFFSET 


326 


001222 


oooooo 


OFFSET! 


OPEN 








(CURRENT PROGRAM OFFSET 


327 


001224 


oooooo 


OFFSTD i 










(DESTINATION OFFSET 


328 


001226 


oooooo 


0FFS7M t 


OPEN 








(SAVE LOCATIOM FOR DESTINATION OFFSET 


329 
















(DURING HOVE 


330 


001230 


oooooo 


MOVRNKt 


OPEN 








(BANK BEING MOVED (SOURCE ADDRESS) 


331 


001232 


oooooo 












(PETURH ADDRESS FPOv MVCODE ROUTINE 


332 


001214 


000024 


ERRLIMi 


20 










333 


001236 


006000 


MXWBFi 


A^^OONIvli 


.STapT/26177000 




(MAX SIZE OF WRITE fiUFFFR. VARIES 


334 
















(IF BUFFER ROTATION TS ENABLED 


315 


001240 


oooooo 


TTYBYTj 


OPEN 










336 


001242 


oooooo 


CXRCT J 


OPEN 








(CT'LX RETURN ADDRESS 


337 


001244 


oooooo 


SVSCNTl 


OPEN 








(TOTAb NUMBER OF SYSTEM EPRORS 


339 


001246 


oooooo 


pWRCNTt 


OPEN 








(TOTAL NUMBER OF POWER FAILS 


339 


001250 


oooooo 


BKpTR t 


OPEN 








(QUFUE POINTER INITIALIZATION FOR RUN.VING BKMODS 


340 


001252 


oooooo 


KTPREBt 


OPEN 








(P» INHIBITED OP NOT PRESENT (LEAVE AS FULL 


341 
















(h'ORD FOR EASY -MODIFICATION AND TO GUARANTEE 


343 
















(THAT FILCNT AND FILLER APE IN SAME hOPD) 


343 


001254 


014 


FIliCNTi 


RYTE 


12. 






(FILCNT AND FILLER «UST BE IN SAME WORD 


344 


001255 


000 


rTT.T.VDi 
r * uijc<r 1 













345 


001256 


000 


SYSERI t 


'byte 


OPEN 








346 


001257 


000 


pMQOE 1 


BYTE 


OPEN 






(PUN MODE INDICATOR 


347 


001260 


000 


CHNi 


BYTE 


OPEN 








348 


001261 


000 


ROTI i 


.BYTE 


OPE" 








349 


001262 


000 


ROTLl 


.BYTE 


OPEN 






(WRITE BUFFER ROTATIOM LOCKED FLAG 


350 


001263 


000 


RELOCj 


.BYTE 


OPEN 






(RELOCATinn ALLOWED FLAG 


351 


001264 


oooooo 


ROTCNTj 


OPEN 








(ROTATION COU'lTER USED WITH ROTL 


352 


001366 


onoloo 


ROTNUM) 


100 








•POTATION CONSTANT IISFP WITH POTCNT 


353 


001270 


000400 


POTSIZl 


400 








(ROTATE PROGRAM BV 9K 


354 


001272 


000 


FlLLICl 


.BYTE 


OPEN 






(FILL INDICATOR. 


355 


001 273 


000 


MOVING! 


.BYTE 


OPEN 






(CODE BEING PELHCATED 


356 


00)274 


000 


RUNRFLJ 


.BYTE 


OPEf' 
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357 


001 275 


000 


LOCKl 


.BYTE 


OPE'.' 


JPRI^IVENT ROTAmN 0^ CODE EXECUTION 


358 


001276 


000 


HVDOMNi 


.BYTE 


OPPN 




359 


001277 


000 


RETBYl 


.BYTE 


OPfN 


(RETRY COUNT FOB COHF PPLOCATION 


360 


001 300 


010 


OUECNTI 


.BYTE 


11 


(• OF TIMES TO CHECK lOOUE BEFORE CHECKING 


361 












(TYPEO WHEN BOTH HAVE REQUESTS PENDING 


362 


001301 


000 


MDL45( 


.BYTE 


OPEN 


;M0"-ZEPO IF CPU IS 11/45 


363 


001 302 


000 


8GWBFC( 


.BYTE 


OPEK 


(WRITE BUFFER BOTATTON COUNT 


364 


001 303 


000 


MEMEPr( 


.BYTE 


OPEN 




365 


001 304 


mo 


BKTIMEl 


.BYTE 


10 




366 


001305 


003 


ROTNt 


.BYTE 


3 


(« OF GWBMF CALLS (LESS ONE) NEEDED PliR 


367 












(ROTBUF CALL 


368 


OOI3O6 


000 


PPRES{ 


.BYTE 


OPEN 


(PARITY PRESE'-'T. OiiMHlfiHTED OB TIONEX I STE':! 


369 


001 307 


000 


CNTl J 


.BYTE 


OPEN 




370 


001 110 


000 


ATE! 


.BYTE 


OPEN 




371 


001 311 


000 


MFLAGi 


.BYTE 


OPEN 




372 


001312 


000 


HNGFLGt 


.BYTE 


OPEN 


(FLAG INDICATES CKHUNG ROUTINE IS BUSY 


373 


001313 


000 


MOVFLG! 


.BYTE 


OPEN 


(FLAG USED IN MTfCODE ROUTINE 


374 


001314 


000 


NSGFLG! 


.BYTE 


OPEM 


(FUG INDICATING MSGN OP MSGS CALL 


375 


001315 


000 


DATFLG( 


.BYTE 


nPRN 


(FLAG INDICATING CKDATA OR DATACK CALL 


376 


001316 


012 


SYSLIM( 


.BYTE 


10. 


(MAX. NUMBER OK SYSTE^l ERRORS ALLOWED 


377 


001317 


000 


TFLAGi 


.BYTE 


OPFN 


(TIMFR FLAG INDICATING ERROR OR EOP 


378 


001320 


000 


NSTOP! 


.BYTE 


OPE^l 


(FLAG PREVENTING STOP FROM BEING SET 


379 


001 321 


001 


CLOCK! 


.BYTE 


1 


(CLOCK FLAG SET FOR SHORT MONITOR 


IflO 


001 322 


000 


ALLBK! 


.BYTE 


OPE'l 


•WHEN WON MEANS R'JN ALL BKMODS BEFORE RELOCATING 


381 




001334 




.EVEN 






392 


001 324 


OOOOOOG 


CLOCKLi 


KWllL 




(WILL BE IF NO KWll-L CLOCK 


383 


001 326 


000000c 


CLOCKPi 


KWltP 




(WILL BE IF NO KWII-p CLOCK 


384 
385 


001 330 


001604 


HNGTIHI 


900. 




(HUv'C TIME LIMIT IN SECONDS 


386 


001 332 


OOOOOOG 


ALCLR! 


LCLEAR 




(SUBROUTINE AODRESS IK L CLOCK MODULE 


387 


001334 


OOOOOOG 


APCLR! 


PC LEAR 




(SUBROUTINE ADDR IN P CLOCK MODULE 


388 












(i«ILL DROP ANY I/O MODULE INACTIVE FOP 15, "INS, 



QAED DeC/Xn 8H0BT MONITOR 



DXOABM, 


iPlI 21 




309 












391 






393 






393 






394 






395 


001 336 


137577 


396 


001 340 


00?641 


397 


001 342 


001414 


398 


001 344 


015232 


399 


001 346 


137607 


4O0 


001 350 


002641 


401 




001353 


402 


001353 


000003 


403 


001 356 


000000 


404 


001360 


000000 


405 






406 
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J DO NOT CHANGE THE SEQUENCE OF THE NEXT 9 WDPDS *»• J 

jPEFER TO THE DOCUMENT FOR THE MONITOR CHECKSUM MODULE (BKBA) 

|FOR THE USE OF THE NEXT SIX WORDS, AND HOW THE TWO "OPEN" LOCATIONS 

J ARE DEFINED WHEN A NEW VERSION OF THE MONITOR IS RELEASED 



SEQ 0167 



CHKL2I 
CHKH2t 
CHKSUHj 

CHKLll 
CHKHll 



137577 
2641 
.»ORD 
.WORD 
137607 
2641 
.ODD 
HOURSi .BLKB 
MIHITSi OPEN 
SEKNDSj OPEN 

.EVEN 



jLOW CHKSUM for PROC. WITH NO RTT INST, 
(HIGH CKKSUM 

START f BEGIN ADDR OF MONITOR PURE AREA 

WCASEE jEND AOOR OF MONITOR PORE AREA 

jCONTAINS LOW CKSH OF MONITOR PURE AREA (PROC WITH RTT) 

JCOWTAIKS HI CKSH OF HO^ITOR PURE AREA 

3 I HOURS IN ASCII 

jMINUTES IN ASCII 
jSECONDS IN ASCII 



OAGO DEC/Xll SHORT MONITOR 
DXOIBI'.PII 2l-ftPR-77 12l42 



407 
408 
409 
410 
41 1 
412 

41 3 001 362 

414 001366 

415 001372 

416 001374 
417 

418 

419 001376 

4?0 00 MW 

421 001402 

422 

473 

474 

425 

426 001406 

427 001410 

428 001412 



000004 
006426 
OOOOOO 



MACYll 27C1006) 22-APR-77 12i53 PACE 14 



iVARIABLF QUE CALL AREA- KEPT I^ FRONT OF STAPT SINCE IT IS IMPURE CODE 

iCOMHON 'CUE CALL" ROUTINE, DOES A DIRECT DTSPATCH RATHER THAN 

»RE0UETNI7 DUE TO MULTIPLE POINTS CALLING THIS ROUTI'-E WHICH 
jMAY OVERLAP IF RFOUEUED, 



012700 001372 
000137 002500 
OOOOOO 
OOOOOO 



104421 

000137 007202 



SEQ 0168 



COHOUEj MOV 
JMP 

CADDRi OFEN 
CSTARTj OPEN 



•CADDR.PO 
lOQSVN 



iCHECKDATA ERROR CSTA 
CDEBRJ PERRXS 

JMp CDPET 



rDESTINATION ADOP. 

jMODULE START APDP, (0 FOR MONITOR), 



t»0'?PC83 or CFOATA CALL 



sTELETyPE ROUTINE PIRO CALL 

iTTYLNK IS FREQUENTLK MODIFIED DURING EXECUTION 



TTYSRVl PIBO* 
TTYLNIfl TTSRVl 



OAED DEC/Xll SHORT MONITOR 
DXQABM.Pll Jl-APR-77 1J|42 
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SEQ 0169 



429 I STARTUP SEQUENCE 

430 



431 


001 414 


000005 






STAPTi 


RESET 


(CLEAR THE WDRLDt 


432 


001416 


012706 


016S46 






MOV 


tSPB0T«R6 


iSET UP STACK, 


433 


001422 


012737 


012636 


000024 




MOV 


tPWRDNtPWRPV 


jSET UP POWER FAIL VECTOR, 


434 


001430 


012746 


000004 






MOV 


IBUSEV,-tSP) 


jSAVE PRESE'lT BUS ERR TRAP 


43S 


001434 


012737 


177570 


001 156 




MOV 


iHARDSRfSR 


J SET SRsHARDWARE SR 


436 


001442 


012737 


001456 


000004 




MOV 


I3(>BUSEV 


(SET NEW BUS ERR TRAP 


437 


001 450 


005777 


177502 






TST 


»SR 


J IS IT HARDWARE SR? 


438 


001454 


000404 








BR 


4« 


SiF YES, RESTORE TRAP 


439 


001456 


012737 


001004 


0011S6 


3ll 


MOV 


«FAKESR,8R 


»ELSE SET UP SOFTWARE SB 


440 


001464 


022626 








CMP 


(Sp)+»tSP)+ 


1 RESTORE STACK 


441 


001 466 


012637 


000004 




4(1 


MOV 


CSP)*»BOSEV 


! RESTORE BUS ERR TRAP 


442 


001472 


012737 


016234 


001250 




MOV 


#M0D0-2»BKPTB 


J INITIALIZE TO START BKMQOS WITH 1ST ONE 


443 


001500 


005737 


001 200 






TST 


LOCOBE 


J DONE BUFFER SETUP? 


444 


001504 


001002 








BME 


21 


J BR IF YES, 


445 


001506 


004537 


016606 






JSR 


RS,5ETBUF 


|N0, DO IT, 


446 


001512 


004737 


012272 




2*1 


JSR 


PCCLBOUS 


{CLEAR QUEUES, 


447 


001516 


105037 


001257 






CLRB 


RMODE 




448 


001 522 


1 12737 


177777 


001021 




KOVB 


#-l,MDXCTR 


(INITIALIZE COUNTER 


449 


001530 


105037 


001262 






CLRB 


BOTL 


(MAKE SURE POTATION IS NOT LOCKED 


450 


001534 


104406 


014062 






MSGl, 


TITLE 


(TYPE THE TITLE 


451 


001540 


022737 


001004 


001156 




CMP 


tFAKESR.SR 


(DO WE HAVE A REAL SR? 


452 


001546 


001002 








BNE 


551 


(BP IF YES 


453 


001550 


104406 


014756 






MSGS, 


HOSWR 


(ELSE TELL HI" WHERE IT IS 


454 


001554 


004737 


013262 




55t 1 


JSR 


PCjPOTCHK 


(CHECK IF ROTATE ALLOWED AND TYPE RANGE, 


455 
456 


001560 


105737 


000041 






TSTB 


»$*} 


(ANY LOAD MEDIUM BITS SET ? 


457 


001564 


001402 








BEQ 


it 


(NO, CONTINUE 


458 


001566 


104406 


014431 






HSGt, 


CLR40 


;" TO EXERCISE LOAD MEDIUM YOU MUST CLEAR LOC 


459 


001572 


005037 


001224 




Itl 


CtR 


OFFSTO 


(MAKE SURE PROGRA" IS NOT PARTIALLY RELOCATED 


460 


001576 


004737 


014060 






JSR 


PC.MVCODE 




461 


001602 


004737 


012272 






JSR 


PC,CLPOUS 


(CLEAR QUEUES IN CASE MVCQDE OVER WROTE THEM 


462 


001606 


004737 


012354 






JSR 


PC.CLBVEC 


(INITIALIZE VECTOR AREA 


463 


001612 


105737 


001252 






TSTB 


KTpBES 


(KTll IN USE ? 


464 


001616 


001002 








BNE 


5S 


(YES, CONTINUE 


465 


001620 


004737 


015016 






JSR 


PC,LOAOWC 


(NO, LOAD wnpST CASE PATTERN IN BUFFER 


466 


001624 


104406 


014122 




51 1 


MSGt, 


DOT 


(TYPE DOT, 


467 


001630 


105737 


001260 






TSTB 


CHN 


(CHAIN MODE? 


469 


001634 


001405 








BEO 


I«lpUT 




469 


001636 


1 12777 


000015 


177172 


6S: 


MOVB 


il5,9KBPTR 


(CLEAN OUT KEYBOBRD BUFFER WITH A CR 


470 


001644 


0001 37 


007420 






JMP 


RUH 


(YES-STAPT RU^mlNS. 


471 
472 


001650 


012706 


016546 




INPUTi 


Mnv 


tSPB0T,P6 


(RESET STACK. 


473 


001654 


105037 


001256 






CLRB 


SYSERI 


(CLEAR SYSTEM ERROR INDICATOR. 


474 


001660 


012737 


016306 


001036 




MOV 


»K8UF,KBPTR 


(INITIALIZE KYBD BUFFER POINTER, 


475 


001666 


052777 


000100 


177252 




BIS 


IIE,?TKS 


(ENABLE KYBD INTERRUPTS. 


476 


001674 


113737 


001300 


001027 




MOVB 


QUECNT.QUECTR 





OAED DEC/Xll SHORT MONITOP 
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DXOABM, 


,P11 21 


-APR-77 


12(42 








SEQ 


478 








(QUEUE 


CHECK, 


NOTE THAT IF lOBKID IS NEGATIVE, NO TYPE QUE REQUESTS WILL BE SERVICED 


479 
480 


001702 


105337 


001027 


QUETST( 


DECB 


OUECTR 


(COUNT TO PREVENT BREAK CALLS FROM LOCKING OUT TYPIWR 


481 


001706 


003004 






BGT 


1$ 


(ALSO PREVENTS HIGH SPEED INT DEVICES FROM 


482 














(LOCKING OUT TYPE QUEUE AND RUN SERVICE 


483 














(STARTUP OF MODULES 


484 
















485 


001710 


113737 


001300 


001027 


MOVB 


OUECNT, OUECTR 


(RESET QUE COUNTER 


486 


001716 


000405 






BR 


2$ 




487 


001720 


105737 


001006 


Hi 


TSTB 


IDQUE 


(10 QUE REQUEST PENPIKG? 


488 


001724 


001402 






BEQ 


2( 




499 


001726 


000137 


002424 




JMP 


lOQSVC 


(GO SERVICE IF YES. 


490 


001732 


005737 


001060 


2S( 


TST 


lOBKID 


(STARTING 1/0 MODULES? 


491 


001736 


100422 






BMI 


QTSTC 


(BR IF YES. 


492 


001740 


105737 


001007 


3$l 


TSTB 


TYPQUE 


(TYPE REQUEST PENniMG? 


493 


001744 


001412 






BEQ 


OTSTB 


(BR IF NOT. 


494 


001746 


105737 


001014 




TSTB 


TTYBSY 


(TTY BUSY? 


495 


001752 


001002 






BNE 


QTSTA 


(BR IF YES. 


496 


001754 


000137 


002650 




JMP 


TYPSVC 


(NO, GO SERVICE TYPf. QUEUE. 


497 


001760 


005337 


001110 


QTSTAl 


DEC 


TYPCTR 


(CHECK FOR TTY HUNG 


498 


001764 


0010O2 






BNE 


QTSTB 




499 


001766 


000137 


006426 




JMP 


TTSRVl 


(UNHANG TTY 


500 


001772 


005737 


001070 


OTSTBl 


TST 


TRCPC 


(BACKGROUND MODULE PENDING? 


501 


001776 


001402 






BEQ 


QTSTC 




502 


002000 


000137 


002622 




JMP 


BKQSVC 


(JUMP IF YES 


503 


002004 


105737 


001257 


QTSTCj 


TSTB 


RMODE 


(IN PUN MODE? 


504 


002010 


001734 






BEQ 


OUETST 


(BR IF NOT, GO CHECK AGAIN. 





iPil 3j 




13|43 


SOS 








506 








■ 








SOB 








S09 


003013 


105737 


001013 


510 


002016 


001331 




511 


003030 


105737 


001333 


513 


003034 


001407 




513 


003036 


105737 


001034 


S14 


003032 


001407 




515 


002034 


013737 


040020 


516 


002042 


00041 5 




517 








51S 


003044 


105737 


001024 


519 


003050 


001 314 




520 


003053 


105737 


001016 


531 


003056 


001007 




533 


003060 


105737 


OOU'60 


S33 


003064 


100004 




534 


002066 


012737 


040030 


525 


0030'4 


000703 




536 


002076 


0S3737 


000003 


53? 


003104 


017700 


178730 


538 


002110 


001474 




539 


003! 1 2 


016046 


000030 


530 


002116 


043716 


016000 


531 


003132 


032637 


001060 


533 


002136 


001134 




53) 


003130 


00S787 


001223 


534 


002134 


001 414 
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jRUN MOBE SERVICE ROUTINE, 

tNOTE THftT MODULE'S STACK POINTER IS REINITIALIZED BUT OTHER 
jSESloTEPS HaVE k'rii PheVidus VALUES PESTOPED AT START OR RESTART 



001060 



1311 



SEQ 0171 



001040 ISl 



TSTB 


BRAKE 


lis THE BRAKE 0N7 


BNE 


OUETST 


5 BR IF YESg DO WOT XNIT MORE MODULES 


TSTB 


ALLBK 


jRUN ALL BKMODS BEFORE RELOCATING 1 


BCQ 


121 


fNO, CONTINUE 


TSTB 


STOP 


•WAITING TO RELOCATE ' 


BCQ 


1 3S 


yNO# CONTINUE 


MOV 


t40020> lOBKID 


; START UP ONLY BKMOD'S 


BR 


1 9 




TSTB 


STOP 


ISTOP SET? 


BNE 


OUETST 


jYES, DON'T START ANY MORE MODULES 


TSTB 


KOOCTR 


jMODCTR bO? 


BNE 


1$ 


jBR IF NOT, 


TSTB 


CHN 


lYES, ARE ME IN CHAIN MODE? 


BPL 


it 


jBR IF NOT. 


MOV 


•40020, lOBKID 


»SW1TCH IT TO BACKGROUND AND PREVENT LOOPING 


BR 


OUETST 


ITHRU BACKGROUND MODULE SERIES MORE THAN ONCE 


ADO 


«2,M0DPTR 


jPOINT TO NEXT MODULE. 


fOV 


SMQDPTP.RO 


J MODULE AODP TO RO. 


BEQ 


7t 


;BR IF NO AnOR. 








PIC 


tBIT12lBITlllBIT10,(SP) jMASK SPECIAL INDICATORS 


CMP 


tSP)+iIOBKID 


sCORRECT "OnuLE TYPE TO RUN? 


BNE 


lit 


>N0- BRANCH 


TST 


OFFSET 


jIF OFFSET 0» IGNORE BITS 10 til 


BEQ 


2S 


: CONTINUE 



OAED DEC/Xn SHORT MONITOR 
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DXQARM.pi] 31 


l-APP-77 


12142 








535 


002136 


033760 


004000 


000020 




BIT 


536 


002144 


001 135 








BNE 


537 


002146 


033737 


001777 


001222 




BIT 


538 














539 


002154 


001404 








REO 


540 


002156 


033760 


002000 


000020 




BIT 


541 


002164 


001115 








BNE 


542 


002166 


005737 


001060 




2tl 


TST 


543 














544 














545 














546 


002172 


100406 








BMI 


547 


002174 


113737 


177777 


001013 




MOVB 


548 


0022O2 


013737 


001040 


001250 




MOV 


549 


003210 


0J27S0 


nionoo 


000020 


3t! 


BIT 


550 


003216 


001403 








aro 


551 


002220 


105337 


001022 






INCB 


553 


003224 


105060 


000005 




4tl 


CLRB 


553 


003230 


016060 


000024 


000046 




MOV 


554 


002236 


105737 


001274 






TSTB 


555 


002342 


001004 








BNE 


556 


002244 


016037 


000022 


001054 


44tl 


MOV 


557 


002252 


000407 








BR 


559 


002254 


016037 


000062 


001054 


StI 


MOV 


559 


002263 


005760 


000026_ 






TST ■ 


560 


002266 


001001 








BNE 


561 


002270 


000765 








BR 


562 


002272 


105337 


001016 




6tl 


DECB 


563 


002276 


000137 


002514 






JMp 


564 


002303 


022737 


040000 


001060 


7tl 


CMP 


565 


002310 


001004 








BNE 


566 


002312 


012737 


041000 


001060 




MOV 


567 


003320 


000434 








BR 


568 


002323 


023737 


041000 


001060 


StI 


CMP 


569 


002330 


00101 3 








BNE 


570 


002332 


012737 


140000 


001060 




MOV 


571 


002340 


112737 


177777 


001031 




HOVB 


572 














573 














574 














575 














576 


002346 


105037 


001022 






CLRB 


577 














57B 














579 














580 














581 














582 


002352 


105037 


001320 






CLRB 


583 


003356 


000415 








BR 


584 


003)60 


0057)7 


001060 




9tt 


TST 


585 


002364 


100012 








BPL 


586 














587 














588 














589 














590 


003366 


113737 


001022 


001031 




MOVB 



SEQ 8172 



»BIT11,STATCP0) iBITll SET? 

US lYES- DON'T RUN MODULE SINCE OFFSET NOT 

•1777.0FFSET lOFFSET 32K MULTIPLE? 



IBITIO.STATCROJ 
lit 

lOBKID 



lYES- IGNORE BIT 10 
|N0- BITIO SET? 
jYES- DON'T PUN MODULE 
J BACKGROUND MODULE? 



3t 

«-l, BRAKE 
MODPTR.BKPTR 

«»IT12,ST*TCP0) 
4S 

MDXCNT 
XFLAGCRO) 



(PR IF NOT. 
lYES, APPLY BRAKE, 

t RECORD MODO ADDRESS OF CURRENT BKHOO 
J5XTEV0ED 1/0 MOOULE? 
;N0- BRANCH 
lYES, COUNT IT 
iCLEAR INDICATOR 
SPOINT(R0)»SVR6CB0) iSET Up MODULE SP POINTER, 
RUNRFL 
;* 

INIT(R0)»DSTAOR »5ET UP DESTINATION ADDR. 
6t 

PSTPTCROlfDSTADR 



PSCNTCRO) 

6t 

44t 

MODCTR 
lOQSVE 

*40000iIOBKID 
8t 

141000, lOBKID 
101 

141000, I08K1D 
91 

*]40000,I0BKID 
»-l.MDXCTP 



NSTOP 

lot 

lOBKID 

lot 



»HAS MODULE BEEN THRU START YET? 
iBR IF YES 
lELSC GO BACK 

iDECR COUNT OF MODS INITED. 
,G0 TO START MODULE 
JFINISHED WITH SPECIAL BKMOD ? 
»BR IF NOT, 

IYE8, SWITCH TO NBKMOD 
ICONTINUE 

iFINISHED WITH NBKHODS 7 
|N0, CONTINUE 
lYES, SWITCH TO lOMOD, 
I INITIALLY LOCK MBXCTR 



(INITIALIZE COUNT 



I ALLOW STOP FLAG TO BE SET 
I CONTINUE 

I IF ALREADY BACKGROUND 
I DON'T RESET MDXCTR 



MDXCNT, MDXCTR 1 SETUP MDXCTR 



OAEO DBC/Xll SHOPT MOHIIOP 
DXOABM.pil ai-»PP-77 l?i42 



S<»t 002374 012737 0*0020 
592 
593 
594 
595 

596 002402 013737 001250 001040 
597 
598 
599 
600 



002410 000403 
002412 012737 



003420 000137 001702 



MACYil 27Cie06) 
001060 



016234 001040 10$J 
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MOV «40O2O, IQBKID jSWTTCH TO BACKSRDU1D MODE 



»CONTINUE WITH NEXT BKMOD 
tSET RUN RESTART rLAGll/60 



MOV BtCpTR.MODPTR 

MOVE tl.RUNRFL 

BR i1$ 

MOV ilM0DO-2,MODPTR jPOINT TO MODULE TABLE START, 

JMP OUETST 



SEQ 0173 



OAED DEC/Xll SHORT MOK 




MACYU 


27C10061 


22-APB. 


■77 12153 PAGE 


20 


DXOABH.PU 21 


-APB-7- 


! 2!42 












601 










lI/O QUE SERVICE ROUTINE. 




602 










■SERVICES PIPOt, 


,QUirS> AND SPEAKS 


CAl'LS 


603 










iNote that PIRQ 


SERVICE CAN OCCUR ON TOP THIS ROUTINE- SO 


604 










1 LEVEL 


7 PRIORITY IS REQUIRED IF 


' COUNT IS DECPEMENTITD AFTER 1002 


605 










lis MOVFD 






606 


















607 


01^2424 


023727 


n1107f> 


017116 


IQOSVCi 


C»P 


I0Q3,»in0LIM 


i REACHED LIMIT OF QUEUE? 


606 


002433 


103403 








PLO 


It 


;BP IF NOT. 


609 


017434 


012737 


016606 


OOS076 




MOV 


»I00> 1002 


(BESET I0Q2, 


610 


002442 


1 05337 


001006 




1«» 


DECB 


lOQUE 


jDECREMENT REQUEST COUNT 


611 


002446 


017700 


176424 






MOV 


«IOQ2,B0 


•GET PC+2 OF CALL. 


612 


002452 


062737 


000003 


001076 




ADD 


•2,1002 


(UPDATE 1002. 


613 


002460 


010001 








MOV 


R0,P1 


(SAVE PC+2 OF CALL 


614 


002462 


014046 








MOV 


-tBO),-(SP) 


(PUSH CALL ON STACK 


615 


002464 


033726 


1 ■>4407 






CMP 


•BREAXt, CSP}+ 


(BREAK CALL? 


616 


OO2470 


001002 








BNE 


2a 


(NO, CONTINUE 


617 


002472 


000137 


003136 






JMP 


BREAK, 


(YES, GH SERVICE IT 


61S 


002476 


005720 






211 


TST 


tPO) + 




619 
620 


002500 


012037 


001054 




lOQSVNi 


MOV 


CR01+,DSTADP 


(GET DESTTNATIOH ADDR, 


621 


002504 


012000 








MOV 


tPO)+,RO 


(GET MODULE ADOR. IS IT 0? 


622 


002506 


001002 








BNE 


lOOSVE 


(BP IF NOT. IT'S A "ODULE. 


633 


002510 


0001 77 


176340 






JMP 


«DSTADB 


(GO DO MONITOR FUNCTION, 


624 


002514 


116037 


000030 


001066 


IDOSVEl 


MnVB 


5TaT(R0),RSTAT 


(GET PUN STATUS. 


635 


002522 


032760 


030000 


000030 


lOOSVAi 


BIT 


(•BIT13»STAT(R0) 


(MODULE STOPPED? 


626 


002530 


001402 








BEQ 


]» 


(NO, CONTINUE 


627 


002532 


000137 


001703 






JMP 


OUETST 


(YES, FORGET IT 


628 


003536 


032760 


040000 


000030 


1(1 


BIT 


«BIT14,STAT{R0) 


(IS MODULE SELECTED 7 


639 


003544 


001002 








BNE 


2S 


(YES, CONTINUE 


630 


003546 


000137 


001702 






JMP 


OUETST 


(NO, FORGET IT 


631 


002552 


010037 


00U33 




3«l 


MOV 


R0,MODADR 


(SAVE RO. (MODULE ADDR). 


632 


002SS6 


010637 


001136 






MOV 


R6,SPSAV 


(SAVE MONITOR STACK TOOJ, 


633 


002562 


062700 


000050 






ADO 


»SVR6+2,B0 


(RESTORE MODULE'S PEGS, 


634 


002566 


014006 






lOOSVDi 


MOV 


-(R0),B6 


(STARTING WITH STACK POINTER, 


635 


002570 


014005 






HOV 


-tP0),R5 




636 


003573 


014004 








MOV 


-(R03,R4 




637 


002574 


014003 








MOV 


-(R0),R3 




638 


002576 


014002 








MOV 


-(P0)iR2 




639 


003600 


014001 








MOV 


-(P0),R1 




640 


003603 


014000 






loosvai 


MOV 


-tPOJfRO 




641 


003604 


01374S 


001066 




MOV 


HSTAT,-CSP) 


(LOAD PUN STATUS. 


642 


003610 


105066 


000001 






CLRB 


l(SP) 


(KERNEL, 1ST REGISTER SET 


643 


003614 


01 3746 


00!054 






HOV 


DSTADP,-CSP) 


(LOAD DESTINATION ADDP. 


644 


oo2«ao 


onooo* 






RTTll 


PTT 




(GO TO DESTINATION, 



OkED DBC/Xil SHORT HOKITQR 
DXQkBM.rn }1-«PP«7T 13i43 



64S 
e4B 
«47 
641 

6*9 
6S0 
6S1 
«53 
653 



003»a3 
003630 
003636 
003643 



013737 
113737 
017100 
005037 



001070 
001073 
174178 
001070 



003646 000735 



MkCyll 37(1006) 33-APR-77 13153 PAGE 31 

tBikCKGPOUND QUEUE SERVICED HERE. 

001054 BKOSVCi HOV TRCPCDSTADR jSET UP DESTINATION ADOR. 

001066 MOVB TRCPSW,RSTAT (SET UP RUN STATUS. 

MOV «MODPTR;Re I MODULE START AD5R TO RO, 

CLR TRCPC iCLEAR BK HODUIE WAITING INDICATOR. 

>ir ERROR OCCURS, WILL STOP HODULE TROM FURTHER 
tEXeCUTION UNTIL ERROR IS REPORTED 
BR lOOSVA }G0 GET GOINQ. 



SE9 0175 



QAED DEC/xn SHORT MONITOR 



MACYU 37(1006) 23-APR-77 13t53 PAGE 32 



DXOABH.Pll 31 


l-APR-77 


13S43 








6S4 










iTYPE QUE SER' 


«5S 










iREMOVES PC*2 


656 














657 


003650 


023727 


001103 


017573 


TYPSVCJ 


CWP 


65B 


003656 


103403 








BLO 


659 


003660 


012737 


017116 


001103 




MOV 


660 


003666 


105237 


001014 




Itl 


INCB 


661 


003673 


017701 


176304 






NOV 


663 


003676 


062737 


000003 


001103 




ADD 


663 


003704 


105337 


001007 






DECB 


664 


003710 


010146 








MOV 


665 


003713 


005741 








TST 


666 


0037'* 


010137 


001046 






HOV 


S87 


n»?770 


OlITOi 








l*D7 


66S 


003733 


006101 








ASL 


669 


002734 


016101 


171736 






MOV 


670 


003730 


000201 








RTS 


671 














673 


002733 


004636 






TYPTABI 


.WORD 


673 


0027)4 


004440 


003534 


00 3; 16 




.MORD 


674 


002743 


003U0 


000001 


003506 




iwORO 


675 


002750 


003004 


000001 


000001 






676 


002756 


000001 


000001 


003774 






677 


002764 


000001 


000001 


003344 






678 


002773 


003150 











SEQ 0176 



TypQ2MTYPLIH jREACHED UPPER END DF QUE'JET 

IS >BR IF NOT, 

«TYPE0,TYPQ2 »YES. RESET TyPQ3. 

TTYBSY J INDICATE TTY BUSY. 

»TYPQ3,R1 jGET PC+2 OF CALL, 

»2,TYPQ2 »UPDATE TYPQ2. 

TYPOUE »DECREMENT REQUEST COUNT. 

P1,-(SP) jPUSH PC+3 OF CALL 

-fSl) jPOTNT TO CALL. 

Rt, NUMBER 'SAVE ADDRESS OF CALL 

(PDiRl rCET CALL 

PI »TI"ES 2, 

TYPTAB»TRP3-4(Rl),Rt |FORM SERVICE ADDR. 

Rl (GO TO IT, RESTORE Bl. 

PASEND 

eNnsvr.EBBSVCERSVCl 

MSG . , 1 1 ERSVC3 i MSGN . , 1 , 1 , 1 , 1 , MSGS . , 1 , 1 , DERRX . , MSGD . 
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SEQ 0177 



679 
680 










(MSGN, 


ROUTINE. 


SERVICES CALLS 


TO TYPE ASCII MESSAGES. 


681 


003774 


113737 


177777 


001314 


MSGS.I 


MOVB 


«•! (MSCrLG 


)SET MSGS CALL FLAG 


683 


003003 


000403 








BR 


MSCONT 


ICONTINUE 


683 
684 


0O3004 


105037 


001314 




MSGN , 1 


CLRB 


MSGFLG 


ISET MSGN CALL FLAG 


689 


003010 


013137 


001064 




MSCONTt 


MOV 


tRI )+»TABAOR 


;GET ASCII TABLE ADOR. 


686 


003014 


013137 


001374 






MOV 


(R1)+»CSTART 


iMODULB AODR TO CSTART 


687 


003030 


010137 


001373 






MOV 


R1 ,CADDR 


» RESUME ABOR TO CADPR. 


688 


003034 


013701 


001374 






MOV 


CSTART.Rl 


jMODULE ADDR TO Rl. 


689 


003030 


033777 


030000 


176130 




BIT 


IBIT13>8SR 


jINHIBIT ERROR PRINT? 


690 


003036 


001033 








BNG 


HSGl. 


>BR IF YES. 


691 


003040 


105737 


001314 






TSIB 


MSGFLG 


;IS THIS A MSGS CALL T 


693 


003044 


100410 








BHl 


IS 


»yES, CONTINUE 


693 


OO3046 


004737 


004314 






JSR 


PC.ENDCOH 


jNO, 00 COMMON STUFF. 


694 


003053 


00453? 


006340 






JSR 


RS.TYPEN 


tTYPE 


695 


003056 


014137 








CRCP 




1? CARRAGE RETURNS 


696 


003060 


015541 








AEND 




jCOHMON HEADER, 


697 


003063 


0J5576 








$PASS 




(PASS 1. 




003064 


000000 















699 


003066 


013701 


001064 




iti 


MOV 


TABADR.Pl 


> TABLE ADDR TO Rl . 


700 


003073 


013146 






3*1 


MOV 


(Pl)+»-(SP5 


jGET MESSAGE ADDR. 


701 


003074 


033716 


177777 






CMP 


t-l,(SP) 


(TERMINATOR? 


703 


003100 


001413 








BEO 


MSGl, 


»BR IF YES. DONE. 


703 


003103 


004737 


006356 






JSR 


PC, TYPE 


»N0. TYPE MESSAGE. 


704 


003106 


000771 








BR 


21 


iGO DO IT AGAIN. 
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DXOABH.pit 21-APR-77 12t42 SfO 0178 

705 lMSG$ CALL SERVICED HERF 

706 



707 


003110 


012146 




MSG.t 


MOV 


tRl )+.-(SP) 


:ASCII MESSAG"^ AODR TO STACK. 


708 


003112 


010137 


001372 




MOV 


Pl.CADDR 


fRESUME ADDR TO CADOR, 


709 


003116 


OOSOS? 


001374 




CLR 


CSTART 


r INDICATE MONITOR QUE CALLING 


710 


003133 


004737 


006356 




JSP 


PC, TYPE 


»G0 TYPE DESIRED MESSAGE. 


711 


003136 


105037 


001014 


MSGl.l 


CLRB 


TTYBSY 




713 


003132 


000137 


001362 




JMP 


COMOUE 


iGO QUEUE UP TO RESUME. 



QAGD gEC/Xll SHORT MONITOR MACYll 27(1006) 32-APR-T7 13153 PAGE 25 

6*Sa8M.P11 21-APP-77 12142 SEQ 0179 



713 iBRGAK POUTINE. SERVICES BREAK CALL, 

714 

715 003136 012100 BREAK, i MOV (Rl) + .BO >OET MODULE ADD!?, 

716 003140 010137 001054 MOV Rl.DSTADR iGET 0ESTINATI01 ADBR, 

717 003144 000137 002514 JMP lOOSVE »OUE UP TO RESUME 



QAED DEC/XIl SHORT MONITOR 



MACYll 27(1006) 22-APR-77 12j53 PAGE 26 



DXOABM.PM ?1 


-APB-77 


12142 








718 








jMSGOS SERVICE- 


TYPE DATA ERROR 


COU«T AND TRAWSfER SIZE 


719 








jAND HALT MODULE 


■ TF NECESSARY 




720 
721 


003150 


0101 37 


001372 


MSGD . 1 MOV 


Rl .CADDR 


SSET UP RESUME APDRFSS 


722 


003154 


004737 


004376 


JSP 


PC.TYPDAT 


jGET MODULE ADDRESS 


723 


003160 


012601 




MOV 


CSP)+,R1 




724 


003162 


010J 37 


001374 


MOV 


P) .CSTART 


;SAVE ADDRESS 


725 


003166 


004537 


011206 


JSP 


R5,FILLNM 


»GET MODULE «IAME 


726 


003172 


016141 




AERNM+1 






727 


003174 


004737 


004376 


JSR 


PC.TYPDAT 


;SETtlP ERROR COt'NT tASCTI) 


728 


003200 


004537 


011744 


JSR 


RS.BDCNV 




729 


003204 


016153 




AEBCT 






730 


003206 


004737 


004376 


JSR 


PC.TYPDAT 


•SETUP TOTAL viORDS TRANSFERRED 


731 


003212 


004537 


011744 


JSP 


P5,PDCNV 




Hi 


013216 


016205 




AF.RIOT 






713 


003220 


032777 


020000 


175730 BIT 


«eiTi3,(ISP 


tlNhlBIT ERROR PRINTOUT? 


734 


003226 


001004 




PNE 


MSGDl . 


tVES- BRANCH 


735 


003230 


012746 


016140 


MOV 


iAEPNM,-CSP) 


• ■JO- TYPE (MESSAGE 


736 


003234 


004737 


U06356 


JSP 


PC, TYPE 




737 


003240 


000137 


004222 


MSGDl.l JMP 


EPSVND 


jCHECK FOR HALTING MODULE, AND 



QHBD DEC/Xlt SHORT MONITOP 
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3E0 mat 



738 










iDEPPX. 


ROUTINE 


SEPVICES EXTENDED DATA ERROR CALLS FROM THE MONITOP 


739 










iCHECKDATA ROUTINE. TYPES ERROR 


INEORMATION AID RETURNS 


740 
741 


003344 


113737 


000001 


001017 


DERRX.l 


M0V8 


11 (ERRIND 




743 


003353 


005731 








TST 


(Pi ) + 


IPOINT TO RETURN LOCATION 


743 


003354 


010137 


001373 






MOV 


PI ,CADDP 


(SETUP RESUME ADDRESS 


744 


003360 


004737 


004376 






JSP 


PC, TYPDAT 


(SET MODULE ADDRESS 


745 


003364 


013601 








MOV 


( SP}f (Ri 




746 


003366 


010137 


001 374 






MOV 


P! jCSTAPT 


lAND SAVE IT 


747 


003373 


004737 


004376 






JSP 


PCj TYPDAT 




748 


003376 


013637 


001046 






MOV 


(SP}trNUMBEP 


> SETUP ADDRESS OF CKDATA CALL 


749 


003303 


004737 


004314 






J5R 


PC • ENDCOM 




750 


003306 


013703 


000005 




DERRXli 


MOV 


t5 ( R3 




751 


003313 


004737 


004376 




JSP 


PC # TYPDAT 




753 


003316 


005303 








DEC 


R3 




753 


003330 


001374 








BNE 


DF!pPXl 




754 


003333 


016146 


000030 






MOV 


ERC^TCPl ] f '(SP) 


jERROR COUNT TO STACK 


755 


003336 


004537 


0H744 






JSP 


R5 , BDCNV 


;COHVEPT ERROR COUNT TO DECIMAL 


756 


003333 


01 6053 








AERNMB 






757 


003334 


005046 








CtjR 


>(5P) 




758 


003336 


005766 


00000* 






TST 


3tSP) 




759 


003343 


001 403 








9G0 


1 1 




760 


003344 


013716 


OOOPSO 






MOV 


i60> (SP) 


SCSPA EA BITS 


761 


003350 


004537 


011534 




JSP 


R5 , OACNVX 


>CSR ADDRESS" ASCII 


763 


003354 


015733 








ADTE6 






763 


003356 


01 3603 








MOV 


(SP)f rP3 


J SAVE TABLE ADDBESS 


764 


003360 


013637 


001140 






MOV 


(SP)+|ERPPOS 


ISAVE OFFSET COUNT 


765 


003364 


0063 J7 


001140 






ASL 


EPPPOS 




766 


003370 


013346 








MOV 


(BllA.Bf SP) 

\ ^ 3 ' ~ F VOrj 


J SETUP READ BUFFER PA 


767 


003373 


013346 








MOV 




jGET EA BITS 


768 


003374 


063766 


oolue 


000003 




ADD 


EPPPOS, 3 ( SP) 




769 


003403 


103003 








BCC 






770 


003404 


063716 


000030 






ADD 






771 


003410 


005733 








TST 


( P3 ) + 


JSKIP SIZE 


773 


003413 


004537 


01 1534 






JSP 


P5 , OACNVX 


jGET PA OF RDADR 


773 


003416 


016003 








ADTE4 






774 


003430 


013346 








MOV 




jCET WRITE PA 


775 


003433 


0! 3346 








MOV 




jGFT EA BITS 


776 


003434 


063766 


001140 


000003 




ADD 


CPRPOS, 3 ( SP) 




777 


003433 


103003 








BCC 


34 




778 


003434 


063716 


000020 






ADD 


120, (SP) 




779 


003440 


004537 


011534 




3^1 


JSP 


P5 , OACNVX 


;GET ASCII Of WPADR 


790 


003444 


015765 








A0TE5 






791 


003446 


004537 


011513 






JSP 


R5 , OACN V 


rCONVERT S/e TO ASCII 


793 


003453 


015735 








ADTE3 






793 


003454 


004537 


ii ; 1 5 1 s 






JSP 


R5,0ACNV 


iCO^VEPT WAS TO ASCII 


784 


003460 


015750 








ADTE3 






765 


003463 


01 3746 


001 i 40 






MOV 


EPPPOS, -(SP5 


lERPOP POSITION IN BUFFER 


796 


003466 


000341 








CIC 




jCORPECT BACK FSO" PYTE TO WORD PTP 


797 


003470 


006316 








ASP 


CSP) 




798 


003473 


005316 








INC 


CSP} 


jVAKE 1ST WORD »1 


799 


003474 


004537 


011744 






JSP 


P5,BDCKV 


»GET DECIMAL 


79C 


003500 


016034 








A0TE7 






791 


003503 


000137 


004014 






JMP 


EPSVX 


jGO TO COMMON RQUTlTiE 



OAEO DEC/Xll SHORT mon:TOR 
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DXQABM.Pll 3 


-APR-77 


13|43 












793 










1 ERROR 


CALLS APE SERVICED HERE, 




793 










|R1 AT 


ENTRY COMTAINS PC+3 OF CALL 


794 
795 


003506 


113737 


000003 


001017 


ERSVC3I 


MOVB 


#3,ERPIND 


lINDTCATE FBPORN CATL. 


796 


003514 


000406 








BR 


EPSVCA 




797 


003516 


10503'' 


C01017 




ERSVCl ! 


CLRR 


EPPIND 


fTNDICATE DATA EPROb. 


798 


003533 


000403 








BR 


EPSVCA 




799 


003534 


113737 


000003 


001017 


ERPSVCl 


MOVB 


•2,FRPIND 


; INDICATE '^'nB^<AL" FPROP. 


eoo 


003533 


013137 


001374 




EPSVCAi 


MOV 


tPI )+«CSTAPT 


iSAVE START ADDS OF MODULE. 


801 


003536 


133737 


000003 


001017 




CMPB 


#3,FRRIND 


jFRPOBN CALL? 


803 


003544 


001003 








BNE 


t« 


jBP IF NOT 


803 


003546 


013137 


001064 






MOV 


fPl)*,TABADP 


iSAVE TABLE ADDP. 


804 


003553 


010137 


001373 




lit 


MOV 


PI .CAODP 


T RESUME ADDR TO PSE'^^DB. 


905 


003556 


013701 


001374 






MOV 


CSTAPT,P1 


I GET BACK START ADDR. 


806 


003563 


004737 


004314 






JSP 


PC.ENOCOM 


>D0 COM^iON STUFF, 


807 


003566 


005361 


000030 






INC 


EPCNTtRl) 


J INCREMENT WOOULE'S ERROR COUNT, 


808 


O03?73 


001003 








BNE 


rusvCB 


;BP IF RESULT NOT 0. 


809 


003574 


005161 


000030 






COM 


esCMTtP) ) 


t RESET COUNT TO -1 . 


810 


003600 


013703 


000005 




EPSVCBl 


KOV 


»5,P3 


jGET TYPE DATA FROM QUEUE TO STACK, 


811 


003604 


004737 


004376 




ERSVCCi 


JSR 


PC, TYPDAT 


»D0 IT. 


813 


003610 


005303 








DEC 


P3 


;DOKE? 


813 


003613 


001374 








BNE 


EPSVCC 


fBR IF MOT. 


814 


003614 


016146 


000030 






MOV 


EBCNT(Rn,-(SP) 


jERROP COUNT TO STACK, 


815 


003S30 


004537 


011744 






JSR 


R5,BDC».'V 


SCONVERT ERROR COUNT TO DECIMAL. 


916 


003634 


016053 








AERNMB 






917 


003636 


105737 


001017 






TSTB 


EPRINO 


jDATA ERROR? 


918 


003633 


001047 








BNE 


39 


jBR IF NOT. 


819 


003634 


004537 


011513 






JSR 


P5,0ACNV 


^CONVERT WAS TO ASCII. 


930 


003640 


015750 








A0TE2 






931 


003643 


004537 


011513 






JSB 


P5,0ACNV 


;CONVERT S/P TO ASCII, RESET TYPQ3 , 


833 


003646 


015735 








ADTE3 






833 


003650 


013637 


001046 






MOV 


(SP)+, NUMBER 


rGET ADDR OF LOCATION READ 


834 


003654 


104413 


001046 






GETPAS 


NUMBER 




835 


O03660 


013746 


001050 






MOV 


NUMBPA,-CSP) 




836 


003664 


013746 


001053 






MOV 


NUMBEA,-{SP5 




937 


003670 


004537 


011534 






JSP 


R5, OACNVX 


jCONVERT WASAOP TO ASCII. 


838 


003674 


016003 








ADTE4 






R39 


003676 


012637 


001046 






MOV 


CSP)+,NUMBEP 




930 


003703 


104413 


001046 






GETPAS 


NUMBER 




931 


003706 


013745 


001050 






MOV 


NtrMBPA,-(SP) 




833 


003713 


013746 


001053 






MOV 


NUMBEA,-(SP) 




833 


003716 


004537 


011534 






JSP 


R5, OACNVX 


(CONVERT SBADB TO ASCII. 


834 


003733 


015765 








ADTE5 






835 


003734 


005046 








CLP 


-(SP) 


lO ONTO STACK 


836 


003736 


016637 


000003 


001144 




MOV 


3CSP),CCSRA 


(SAVE CSR ADDRESS 


837 


003734 


001403 








BEO 


It 


lIF 0, BRANCH 


838 


003736 


013716 


000060 






MOV 


160, (SP) 


fSETUP EA BITS 


839 


003743 


004537 


011534 




III 


JSP 


R5. OACNVX 


(CONVERT CSR ADDR To ASCII. 


940 


003746 


015733 








ADTE6 






B41 


OC37S0 










BP 


ERSVX 




943 










3«l 




■;sp) + , tSF)* 


(SKIP WAS A"D S/B, 


843 


C )5 75 4 


30 ■. • 










,-.S,OAC!.V 


iCONVERT STAT PEG CONTENTS TO ASCII, 


844 


OiH?S0 


01!' t 














845 


003-53 


C0453' 








JSP 


P? .CACNV 


(CONVERT CSB CO"TENTS TO ASCII, 


846 




0158$"? 








ACSRC 






B47 


OC 577C 


005046 








Cf<R 


•(SP) 


(0 ONTO STACK 



OAED OCC/Xll SHOPT MONITOR 


M&CYl 1 


27(1006) 


22"APP 


■77 12153 PASE 


29 


DXQABM.Pli 2) 


, "APR"?? 


12|42 












84S 


003772 


01 6637 


000002 


001144 




MOV 


2(SP)»CCSRA 


» SAVE CSR ADDRESS 


3 45 


004000 


001402 














8S0 


004002 


012716 


000060 






MOV 


t60f (SP) 




8S1 


004006 


0045 37 


01 1524 




31 1 


JSR 


R5f OACNVX 


|C0«VERT CSR ADDS TO ASCII, 


812 


004012 


015653 








iCSRRC 






8?3 


004014 


032777 


020000 


1751 34 


CRSVXi 


BIT 


tBITl 3( 9SR 


J INHIBIT ERROR PRINTT 


854 


004022 


001077 








BKE 


EPSVND 


jBP IE YES, 


es5 


004024 


004537 


006340 




7tl 


JSR 


R!,TTfPEK 


1 TYPE 


8S6 


004030 


014127 








CRCR 




|2 CAPRAGE RETURNS 


8?7 


004032 


015541 








AEND 




(COMMON HCAOER, 


858 


004034 


015576 








tPASS 




tPASS t. 


PS9 


004036 


016044 








CRRNMB 




(ERROR t. 


860 


004040 


000000 














861 


004042 


1227 37 


000002 


001017 


Bit 


CMPB 


t2<CRRIHD 


(DATA ERROR? 


862 


004050 


003406 








BLE 


1 8 


(BR IF NOT, 


863 


004052 


004537 


006340 






JSR 


B5,TypS»! 


(YES, TYPE 


864 


004056 


016012 








ADTG4K 




(DATA ERROR VALUES 


865 


004060 


015714 








ADTGRR 






866 


004062 


000000 















867 


004064 


000404 








BR 


28 




868 


004066 


01 2746 


015645 




1(1 


MOV 


t AEPROP; -( SP} 


(TYPE ESROR MESSAGE, 


SS5 


004072 


0047 37 


006356 






JSR 


PC, TYPE 




870 


004076 


1 22737 


000001 


001017 


211 


CMPB 


tl ,ERRIND 


(EXTENDED DATA ERROR? 


97! 




00! no^ 














872 


004106 


01 2746 


016026 






MOV 


tADTEX,>(SP) 


(YES* OUTPUT POSITION IN BUFFER 


873 


004112 


004737 


006356 






JSR 


PC f TYPE 




874 


004116 


01 2746 


014155 




31 1 


MOV 


* ACRLF, • ( SP) 




875 


004122 


0047 37 


006356 






JSR 


PC, TYPE 




876 


004126 


1 22737 


000003 


001017 




CMPB 


t3,ERRIN0 


(ERRORN CALL? 


877 


004134 


001032 








BWE 


ERSVND 


(BR IF NOT, 


878 


004136 


01 3702 


001064 






MOV 


TABADR,R2 


(TABLE ADDR TO R2, 


879 


004142 


01 2703 


000010 




4(1 


MOV 


*8.,R3 


(WILL TYPE 8 VALUES PER LINE, 


880 


004146 


022712 


1 77777 




5(1 


CMP 


i»] , (2) 


(TERMINATOR? 


881 


004152 


001 417 








BEO 


6t 


(BR IF YES, DONE, 


882 


004154 


01 3246 








MOV 


9(2)+>'(SP} 


(PUT VALUE IN STACK, 


883 


004156 


004537 


011512 






JSR 


R5 , OACNV 


(CONVERT IT TO OCTAL, 


884 


004162 


015515 








HnLD6 




(AND PUT IT HERE 


885 


004164 


1 2746 


015515 






MOV 


tH0I/D6>-(SP) 


(TYPE IT, 


886 


004170 


004737 


006356 






JSR 


PC, TYPE 




887 


004174 


005303 








DEC 


R3 


(DONE 8 PER LINE? 


888 


004176 


001 363 








BHE 


58 


(BR IF NOT, 


S8S 


00*200 


012746 


014133 








9 aC Ru!^ , "* C 3F ^ 


( OliTpuT CRLF, 


890 


004204 


004737 


006356 






JSR 


PC, TYPE 




891 


004210 


000754 








BR 


41 


(00 FOR MORE, 


892 


004212 


01 2746 


Oi 4155 




6i 1 


MOV 


(ACRliF,«(SP) 


(OUTPUT CRLF, 


893 


004216 


004737 


006356 






JSR 


PC, TYPE 




894 


004222 


005777 


1747 30 




EPSVNn 1 


TST 


I'SR 


(HALT MODULE ON EPROR? 


895 


004226 


10041 








BMl 


1 $ 


(BR IF YES, 


896 


004230 


023761 


001234 


u 3 




C'P 


EPPLIM, EPCNK PI 3 


jEPPOP COUNT 20 OR GREATER? 


897 


00*236 


0030)0 








BGT 


2$ 


(BR IF NOT, CONTINUE MODULE EXECUTION, 


898 


004240 


032777 


040000 


174710 




BIT 


#BIT14,»SP 


(YES, HALT MODULE AFTER 20 ERRORS? 


899 


004246 


001004 








flNE 


2« 


•NO- SKIP 


900 


004250 


005037 


001144 




!«l 


Cl.P 


CCSRA 


(CLEAR CCSRA 


SOi 


004254 


onoi37 


004446 






JMP 


E^DSVA 


(YES, 50 HALT MODULE 


902 


004260 


105037 


001014 




2(1 


CLRB 


TTYBSY 


(QUE TO PFSUKE 


903 


004264 


005737 


001144 






TST 


CCSRA 


(IF NOT SETUP. PDM'T RESTORE INTO MODULE 



SCQ 0183 
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904 
905 
906 
907 

908 



no4270 001407 
004272 013700 



004276 
004104 
004310 



01 3760 
005037 
0001 37 



001374 
001144 
001144 
001362 
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000050 



3St 



BEO 
MOV 
"OV 
CLP 
JMP 



it 

CSTARTfRO 
CCSRA, CSRA(PO) 
CCSRA 
COMQUE 



(RESTORE CSRS IN MODULE 
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SEQ eits 



909 


004314 


104413 


001046 


ENDCOMi GETPAt 


NUMBER 


(NUMBER CONTAINS ADORESS OF CALL 


910 


004330 


013746 


001050 


MOV 


•NUMBPA,-(SP) 




9tl 


004334 


013746 


001053 


MOV 


NUMBEAi'CSP) 




913 


004330 


01 3746 


001046 


MOV 


NUMBER|«(SP) 




913 


004334 


160116 




SUB 


Rl> (SP) 


jCQMpUTE ASSEMBLY PC, 


914 


004336 


004537 


011512 


JSR 


R5>0ACNV 


iCOMVERT ASSEMBLY PC TO ASCII, 


915 


004343 


015566 




AEND3 






916 


004344 


004537 


011524 


JSR 


R5>0ACNyx 


iCONVFRT PC 10 ASCII. 


917 


004350 


015553 




AENDl 






918 


004353 


004537 


01 1306 


JSR 


R5 r m'l'"M 


iLET'S GET MODULE NAMg^ 


919 


004J56 


015541 




AEND 




J STUFF AT AEMO. 


930 


004360 


016146 


000026 


MOV 


PSCNT(Rn,>(SP) 


tGET PASS COUNT, 


931 


004364 


005316 




INC 


(SP) 


jUP IT 1. 


933 


004366 


004537 


011744 


JSR 


R5,BDCNV 


JCONVEPT IT TO DECIMAL ASCII, 


933 


004372 


015606 




APASS 






924 


004374 


000207 




RTS 


PC 


I LET'S GET OUT, 



OAEO DEC/Xll SHORT MONITOP 
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DXOABM 


Pll 21 


-APP-77 


12142 










925 










iTYPDAT 


ROUTINE 


LOADS QUEUED 


926 
















927 


004376 


011646 






TYPDATl 


MPV 


(SP),-(SP3 


92e 


004400 


023727 


001102 


017572 




CMP 


TYPQ2f ITYPLIM 


929 


004406 


1 03403 








BLO 


1 1 


930 


094410 


012737 


017116 


001102 




MOV 


«TYPEQ,TYPQ2 


931 


004416 


017766 


174460 


000002 


l«t 


MOV 


«TyPQ2,2CSP) 


932 


004424 


062737 


000002 


001102 




ADD 


«2iTYP(J2 


913 


004432 


105337 


001007 






DFCB 


TYPQUE 


934 


004436 


000207 








RTS 


PC 



jSAVE EXIT ON STACK AGAIN. 
;BEACHEP EKD nr QUEHf? 
jBP IF MOT, 

jYFS. POINT TO STSPT Qf OHEUE. 
JOUEUE DATA TO STftC* , 
SUPOATE QUEUE POI«'TfR. 
;DErRE«FNT COUNT, 
lEXlT. LE»Vr nATH IV STACK. 
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93S lENO CALL SERVICED HERE, 
936 



9 J7 


004440 


01 i loi 






ENDSVc I 




CBl 3 »B1 


IGET START AODR, 


938 


004442 


0047 37 


004314 






JSR 


PC f ENDCOM 


jOO COMMON STUFF, 


939 


004446 


052761 


020000 


000020 


BIS 


IBITl 3f STAT( Rl ) 


jSET STOP BIT I" ''ODULE STAT, 


94Q 
941 


004454 


004537 


006340 




lit 


JSk 


P5 1 TyPEN 


> TYPE 


942 


004460 


014127 








CRCR 




>2 CARRAGE RETURNS 


943 


004462 


015541 








AEKD 




jCOMMON HEADER, 


944 


004464 


015615 








MOOEND 




(END MESSAGE, 


945 


004466 


000000 















946 


004470 


105037 


001014 




2t i 


CLPB 


TTYBSy 


jCliEAB TTY BUSY IWDTCATOR, 


947 


004474 


005761 


000020 








STAT(P) ) 


(BACKGROUND MODULE? 


948 


uu 49 uu 


100410 








i- 


1 1 


• Be TS" UrtT 


949 


004502 


1 05037 


00101 3 






CLRB 


BRAKE 


(RELEASE BRAKE, 


950 


004506 


1 057 37 


001024 






TSTB 


STOP 


fSTOP MODULES FOR RELOCATION? 


951 


004512 


00140 3 








BEO 


1 1 


(NOf CONTINUE 


952 


OO45I4 


105737 


r^^i 3 32 






TSTB 


allbk 


(RUN ALL BKM005 BEFORE RELOCATION 7 


953 


004520 


001413 








BEQ 


EVQSVG 


(NOi CONTINUE 


954 


004523 


032761 


010000 


000020 


1 1 1 


BIT 


#BIT1 2» STST(R1 ) 


(EXTENDED I/O MOOT 


955 


004530 


001402 








BEG 


61 


(NO" BRANCH 


956 


004532 


10533" 


001022 






0EC8 


MDXCNT 


(¥ES> DEC EXTENIIEO "OD COUNT 


95? 


004536 


105337 


001015 




61 1 


DEC 8 


MODCNT 


(DECR COUNT OF MPDUtjES RUNNING, 


958 


004542 


105737 


001034 






TSTB 


STOP 


(RELOCATE CODE? 


?5? 


50s§46 










sr.a 






960 


004550 


5 23737 


001015 


001035 


ENDSVGl 


CMPB 


WODCNTiBKCNT 


(ALL I/O MODULES OFF? 


961 


004556 


003021 








8GT 


EVOSVD 


(NO" BRANCH 


962 


004560 


1057 37 


001 332 






TSTB 


ALtjBK 


(RUN ALL BKMOD'S BEFORE RELOCATING ? 


9S3 


004564 


001*04 








REO 


1 i 


(NO, CONTINUE 


964 




105737 


001015 






TSTB 


wroCNT 


(ALL MODULES DONE ? 


965 


P04S72 


001404 








BEQ 


EMDSVB 


(YES, GO RELOCATE 


966 


004574 


000412 








BR 


ENDSVD 


(NO, GO RUN THE REST OF THE MODULES 


967 


004576 


105737 


001013 




111 


TSTB 


BRAKE 


(YES" 8KM0D OFF? 


968 


P04602 


001007 








BUE 


ENDSVD 


(NO- BRANCH CSTOP BKMOD CLEANLY) 


969 


004604 








ENDSVBt 








970 


004604 


000! 37 


007476 






JMP 


RUNRSS 


(GO STARTUP AGAIN 


971 


004610 


105737 


001015 




ENDSVn 


TSTB 


MODCNT 


(ANY MODULES RUNNING? 


972 


004614 


001002 








BNE 


E^•DSVD 


(YES" BRANCH 


973 


004616 


000137 


006143 






JMP 


CTRICB 


(COUNT 0, TERMINATE PUN MODE, 


974 


004632 


000137 


001703 




ENDSVDt 


JMP 


0UET5T 


(GO BACK TO SERVICE QUEUES, 
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SEO 01«8 



975 
976 
977 
978 



(PASEND PPUTINE, TYPES END OF PASS MESSAGE, 

(BACKGROUND MODULES ARE NOT ALLOWED TO MAKE MULTIPLF PASSES, 
(IN CHAIN MODE NO MODULE ALLOWED TO MAKE MULTIPLE PASSES, 



979 


004626 


011101 






PASENDJ 


MOV 


tRl),Rl 


(LOAD Rl WITH MODULE ADDRESS 


980 


004630 


016137 


000062 


001372 




MOV 


RSTRTCP1),CA0DP 


(SAVE RESTART ADDRESS 


981 


004636 


010137 


001374 






MOV 


Rl ,CSTART 


(SAVE MODULE ADDRESS 


983 


004642 


005261 


000026 






JVC 


PSCNTCPl) 


(INCPEHENT PASS COUNT. 


993 


004646 


033777 


010000 


174302 


Hi 


BIT 


«BIT12,«8R 


(ENDPAS PRINTOUT? 


984 


004654 


001417 








PEQ 


PSENDA 


(BP IF MOT. 


985 


004656 


004737 


004314 






JSR 


PC, ENDCOM 


(DO COMMON STUFF. 


986 


004662 


016146 


000026 






"ruT 


PSCNT(R1),-(SP) 


(NOW GET IT, 


987 


004666 


004537 


011744 






JSR 


RS,BDCNV 


(CONVERT IT TO DECIMAL ASCII, 


988 


004672 


015636 








BPSCNT 




(STUFF IT AT BPSCNT, 


999 


06f6't4 


00' 45' St 


00B340 






JS'R" 


ps/TYpev 


( tipt ' ' 


990 


004700 


014127 








CRCP 




;7 CARPAGE RETURNS 


991 


004702 


015541 








AEND 




(COMMON HEADER, 


<>92 


004704 


015627 








APSEND 




(ENDPAS AND COU*JT, 


993 


004706 


014125 








CR 






994 


004710 


000000 















095 


054713 


000400 








BP 


pcrMni 


"CtJNTTNUE 


996 


004714 


105037 


001014 




PSENDA{ 


CLBP 


TTYBSY 


(CLEAR TTY BUSY INDICATOR, 


997 


004730 


105737 


001260 






TSTB 


CHN 


(IN CHAIN MODE? 


998 


004724 


100663 








PMI 


ENDSVE 


(BP IF YES TO END MODULE EXECUTION 


999 


004726 


005761 


000020 




2lt 


TST. 


STATCRl) 


(BACKGROUND MODULE? 


1000 


004732 


100415 








BMI 


PSENDB 


(BP IF NOT. 


1001 


004734 


105037 


001013 






CLRB 


BRAKE 


(RELEASE BRAKE, 


1003 


004740 


032761 


001000 


000020 




BIT 


tBIT9, STATCRl) 


(IS IT AN NBKMOD ? 


1003 


004746 


001725 








BEO 


ENDSVD 


(WO, CONTINUE 


1004 


004750 


052761 


020000 


000020 




BTS 


•8IT13,STAT(R1) 


(YES, SET IT'S STOP BIT 


1005 


004756 


105337 


001025 






OECB 


BKCNT 


(ONE LESS BKMOD RUNNING 


1006 


004762 


000137 


004474 






JMP 


ENDSVE 


(GO TAKE CAPE OF OTHER STUFF 


1007 


004766 


000137 


001362 




PSENDBi 


J«p 


COmOUE 


(GO TO COMMON QUE CALL, 



1008 
1009 



OAED DEC/Xll 8H0KT MOMITOK 
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001304 
001006 



lOtO 






1011 






1013 


0047"! 


105337 


1013 


004776 


1 00401 






AA AA AC 


1015 


005002 


113737 


1016 


OOSolO 


005737 


1017 


005014 


001771 


1018 


005016 


012637 


1019 


005023 


012637 


1020 


005036 


000401 



001070 
001073 
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J TRACE TRAP EHTfPS HERE, 



001034 



TRCIl 



TRCIAl 
TRCICl 



TRCIBl 



DECB 

BHI 

RTT 

MOVB 

TST 

BEO 

MOV 

WOV 

BR 



BKTIMP 
TRCIC 

BKTlHEjBKTIMR 

lOOUE 

THCIA 

(SP)+iTPCPC 

(SP)*iTRCPSW 

EXITl, 



SEQ niR9 



I I/O OR TYPE OUe WAITINGT 
jHO. EXIT. 
{SAVE MOD'S PC, 
rSAVE HOD'S PSW, 
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1031 lEXIT CALL ENTEPS HERE. 

1033 



1033 


005030 


033626 




EXIT.l 


CMP 


(SP)+.(SP)+ 




1034 


005033 


010046 




EXITl, 1 


MOV 


RO,-(SP) 


fSAVE PC IN STACK. 


1035 


005034 


013700 


001133 




MOV 


HOr>»DP,Po 


t MODULE ADDP TO PO. 


1036 


005o40 


063700 


000033 




ADD 


tSVBO»PO 


(POINT TO MOD'S PEG SAVE AREA 


1037 


005044 


013630 






MOV 


tSP)+, (B0)+ 


iSAVE RO, CEROM STACK). 


1038 


005046 


010130 






MOV 


Rt,tRO)+ 


JSAVE REMAIMING REGS, 


1039 


005050 


010330 






MOV 


R2, (P0)+ 




1030 


005053 


010330 






MOV 


P3, fRO)+ 




1031 


005054 


010430 






MOV 


P4, (R0)+ 




1033 


005056 


010530 






MOV 


R5,(R0)+ 




1033 


005060 


010610 






MOV 


R6,(R0) 


jSAVE MODULE STACK POTNTER, 


1034 


005063 


013706 


001136 




MOV 


SPSAV,R6 


IRESTORE MONITOR STACK. 


1035 


005066 


005046 




EXIT3,i 


CLP 


-(8P) 


»CLEAP PSW ON STACK 


1036 


005070 


013746 


005076 




MOV 


»U.-(SP) 


I SET UP RETURN PC 


1037 


005074 


000003 






PTI 




jCLEAR PSW AND, CONTINUE 


1038 


005076 


000137 


001702 


i$i 


jwp 


OUETST 
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1039 








jTYPQ4. POUTi: 


1 a*o 










1041 


005102 


004737 


005350 


TYP04.J JSB 


1042 


005106 


013700 


001122 


MOV 


1043 


005112 


010046 




MOV 


104* 


0D5114 


004737 


OOS3S0 


JSP 


1 04S 


005120 


016046 


000060 


WOV 


1046 


005124 


004737 


005350 


JSP 


1047 


005130 


016046 


000056 


HOV 


1048 


005134 


004737 


005350 


JSR 


1049 


005140 


005726 




pnpsp 


1050 


005142 


013706 


001136 


MOV 


lOSl 


00S146 


000747 




BR 
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jTYPQ4. ROUTINE, LOADS MSGDI INFORMATION INTO TYPEQ 



SEQ 0191 



PCIiDIYPQ 

HODADR,R0 

R0,-CSP) 

PCLDTYPQ 

AWAS(RO),»CSP) 

PCLDTYPQ 

ASBCRO)f-CSP) 

PCLDTYPQ 

SPSAV,R6 
EXIT2, 



I QUEUE PC+2 OF CALL 

(LOAD MODULE ADDRESS IN RO 

lAND SAVE IN QUEUE 

I QUEUE DATA ERROR COUNT 

» QUEUE SIZE or TRANSFER 

» REMOVE PS FROM STACK 
iGET MONITOR STACK POINTER 
SEXIT 
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SEO ni92 



1052 








|TYPQ3. 


ROUTINE 


QUEUES INFOPMATION FOB DEBBX CALLS 


1053 
















1054 


005150 


011646 




TYP03.I 


MOV 


(sp),-cspi 




1055 


0O5152 


004737 


005350 




JSR 


PCLDTYPQ 


S QUEUE PC+2 OF CALL 


1056 


0OS156 


013700 


001122 




MOV 


MOOADfifBO 


jLOAD MODULE ADDRESS IN RO 


1057 


005162 


010046 






MOV 


BO,-(SP) 


tANO SAVE I«i QUEUE 


1058 


005164 


004737 


005350 




JSB 


PCLDTYPQ 




1059 


005170 


017616 


000000 




MOV 


9tSP),CSP) 


fQUEUE VIRTUAL ADDRESS OF CHECKDATA 


1060 


005174 


004737 


005350 




JSP 


PCLDTYPQ 




1061 


005200 


005726 






POPSP 






1062 


005202 


062700 


0O0O62 




ADD 


ltMAS+2rR0 


(GET ADDRESS OF IKFORMATION 


1063 


005206 


012701 


000005 




MOV 


• 5, PI 




1064 


00521? 


000401 






BR 


2S 




t065 


005214 


005010 




Itl 


CLB 


(BO) 


iCLEAR DATA (EXCEPT LAST) 


1066 


005216 


014046 




2$l 


MOV 


-(BO),-(SP) 


»GET DATA 


1067 


005220 


004737 


005350 




JSB 


pr.LDIYPO 


JQUEUE DATA 


1068 


005224 


005301 






DFC 


Rl 




1069 


005226 


001 372 






BNE 


18 




1070 


005230 


013700 


001122 




MOV 


MODADB.PO 




1071 


005234 


010660 


000046 




MOV 


R6,5VR6(R0) 




1072 


005240 


Oj 3706 


OOU 36 




yov 


SPS»V,R6 




1073 


005244 


000137 


005066 




JWP 


EXIT2, 
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■ TVBA4 


nUUT 4 n L 




DATA BP POP f AWO EPPN CALIFS 


1075 
















1076 


005250 


1 $ 646 




TypQ2 t 


HOV 


f <ID^ .mt 40\ 




1077 




Of^47 37 


A AE IKO 




JSR 


DP T.BTVOQ 




1078 


0O52S6 


1 0046 






MOV 


f^U # ~ V Or J 


ift&vr QA 


1 079 


UU? *w u 


017600 


AAAA A9 




MQV 


B9 / VD^ < PA 


■ APT MnntiT.R' &nno 






06270 


A A AAV A 


TYPQX 1 


ADO 


ipapk . DA 


t 


1 08 1 


OOS27 


012746 


000005 




HOV 


#5 1 * ( 8P) 




1002 










MOV 






1063 


0052'6 








BP 


2 1 




1094 




1 1046 




1 S t 


MOV 






1 085 


OOS3O2 


005020 






CtR 


CPO) + 




1086 


005304 


004737 


005350 




JSP 


PCLDTYPO 




1087 


005310 


005316 






DEC 


CSP) 




1088 


005312 


001372 






BKC 


1$ 




1089 


005314 


005726 






POPSP 






1090 


005316 


012600 






MOV 


{5P)+»P0 


iRESTORJC PO. 


1091 


005320 


000137 


005030 




JMP 


EXIT, 
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1092 jTYPQ, PDUTIHE. SF.pVlCES TW, EVPPAS, W -SO" CALLS. 
1093 

109* 005324 004737 005350 TYPQ.l JSR PCLDTYPC jQUEUT UP CiLI . 

1095 005330 005726 POPSP 

1096 005312 000137 ft05032 J^P PXITt. 



qAED DEC/XU SHORT MOMIiap MJkCYll 27(1006} 33«APR-77 13|53 PAGE 41 

e^^ABH.Pll 31«APP«77 12142 SGQ 019S 

1097 iTTPOl. POUTINE, SERVICES MSG CALL. 

1098 

1099 005J36 004737 005350 TyPQl.i JSR PC.LDTyPO lOUEUE UP CALL. 

lino 005342 005726 POPSP 

1101 005344 000137 005066 JMP EXIT2. 
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DXQAPX.pii Jt.jpR.77 I5I4J SET, oias 



1102 










iROUTINE TO 


LOAD TYPE QUEUE. 


ENTERED VIA JSR PC. 


1103 


005350 


005046 






LDTYPOJ 


CLR 


-(SP) 


jCLEAR PSW OS STACK 


1104 


005352 


012746 


005360 






MOV 


«3Sf-(SP) 


S SETUP RETURN PC 


1105 


005356 


000002 








RTI 




tCLEAR PSM &«ID COMTTSUE 


no* 


005360 


105737 


001007 




3SS 


TSTB 


TYPQUE 


jREQUEST COUNT 0? 


1107 


005364 


001414 








BEQ 


1« 


JBR IF YES. 


1108 


005366 


023737 


001100 


001102 




CHP 


TYpai ,TYPQ2 


JNO, TYPQl AWD TYPaz SAME? 


1109 


005374 


001010 








BNE 


IS 


iBR IF WOT. 


1110 


005376 


012737 


017116 


ontiOO 




MOV 


«TYPEQ,TYPQ1 


J RESET THP: TYPE QUEUE 


1111 


005404 


1 04406 


014157 






I^SS$ 


,aOVPFL lYES, 


QUEUE OFLO. CRASH SYSTEM 


1112 


005410 


104406 


014620 






MSG$ 


,HLT I'HALT' 


1113 


005414 


000000 








HALT 






1114 


005416 


023727 


OOllOO 


017572 


l«t 


C" 


TYPQl, iTYPLIM 


jRFACHED HIGH LIMIT? 


1115 


005434 


001003 








SNE 


2$ 


jBR IF WOT. 


1116 


005426 


012737 


017116 


001100 




MOV 


iTYPEQ, TYPQl 


jBESET TYPOl. 


1117 


005434 


0)6677 


000002 


173436 


2Si 


MOV 


2(SP)>eTYPQl 


jSTQRE ARGUMENT IN QUEUE 


1118 


005442 


105237 


001007 






INC8 


TYPQUE 


SUPDATE REQUEST COUNTS, 


1119 


005446 


062737 


000002 


001100 




ADD 


t2, TYPQl 


TUPOATE TYPOl . 


1120 


005454 


012616 








MOV 


tSPJt. (SP) 




1121 


005456 


000207 








RTS 


PC 


JEXIT. 
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1133 










1 ROUTING TO 


bOAD BREAKI CALL 




1133 
1134 


005460 


113766 


177777 


000003 


LDBRK.i 


HOVB 


•-l»3t8P5 


lINDICATG BREAK* CALL 


1139 


005466 


000403 








BR 


LDIOQ 




1136 
1137 










IROUTINE TO LOAD QUEI CALL. 




1138 
1139 


005470 


005066 


000003 




QUE 1 


CLR 


3(SP) 


(INDICATE QUE CALL. 


1130 
1131 
1133 












ROUTINE. MUSI NOT DROP 


BFLOW LEVEL OF INTERRUPTING DEVICE 


1133 


005474 


013746 


000340 




LDIQOt 


wov 


»PRTY7i-(8P) 


(PUT NEW PSW ON STACK 


1134 


005500 


013746 


005506 








M$,"(SP) 


J SETUP RETURN PC 


1135 


005504 


000003 








RTI 




(LOAD NEW PSW AND CONTINUE 


1136 


005S06 


000403 






III 




. + 10 




1137 


005510 


113766 


000001 


OOOO03 


PIROal 


HnvB 


*1.2(SP) 




1138 


005516 


10S737 


001006 








lOQUE 


jREQUEST COUNT 01 


1139 


005533 


001414 








BEQ 


11 


iBP IF YES. 


1140 


005534 


023737 


001074 


001076 




CHP 


I0Q1«I002 


tlOQt AND I0Q2 SAME? 


1141 


005533 


001010 










1* 


IBR IF NOT. 


1143 


005534 


013737 


016606 


001074 




unv 


*lbQ»I001 


(RESET lOQl 


1143 


009S43 


104406 


014197 






MSOl 


iQOVRFL (QUE 


OFLO. CRASH SYSTEM 


1144 


009546 


104406 


014630 






M8G$ 


,HLT J 'HALT* 


1149 


005553 


000000 








HALT 






1146 


0095S4 


033727 


001074 


017J16 


lit 


CHP 


lOQlftlOOLIM 


jREACHED HIGH LIMIT? 


1147 


005563 


001003 








8NE 


3* 


jBR IF NOT. 


1148 


005564 


013737 


016606 


001074 




MOV 


•I00>I0Q1 


(RESET lOQt. 


1149 


005573 


013677 


173376 




3lt 


MOV 


(SPUftilOOl 


jSTORE PC+2 OF PENDING CALL, 


1150 


005576 


105337 


001006 






INCB 


lOOUE 


JUPOATE REQUEST COUNTS, 


1151 


005603 


063737 


000002 


001074 




ADD 


*2«I0Q1 


» UPDATE lOQl, 


1153 


005610 


005716 








TST 


CSP) 


lOUE CALL7 


1153 


005613 


001003 








BXE 


n 


>N0- BRANCH 


1154 


005614 


005736 








TST 


(SP) + 


»YES, POP STACK 


1155 


005616 


000137 


005066 






JMP 


EXIT2. 


lEXIT 


1156 


005633 


136637 


000001 


177777 


311 


CMPB 


1(SP)»»-1 


jBBEAK CALL? 


1157 


005630 


001003 








BNE 


4« 


iNC- BRANCH 


1158 


005632 


005736 








TST 


CSP) + 


JYES- POP STACK 


1159 


005634 


000137 


005033 






JWP 


EXTTl. 




1160 


005640 


005726 






4tl 


TST 


CSP) + 


IPIRQ- EXIT VIA RTI 


1161 


005643 


000003 








BTI 
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DXQABM, 


Pit 3 


-APfl-77 


13142 










1163 










iKEYBOAPP INTFPPUPT SERVICE 




1163 
1164 


005644 


005077 


173276 




KBSRVCl CLR 


»TKS 


:CLEAR INTERRUPT ENJBLE. 


1165 


005650 


017746 


173274 




MOV 


8TK8,-CSP) 


(GET CHAR. 


1166 


005654 


043716 


000200 




SIC 


•200f (SP) 


(REMOVE EXTRA BITS. 


1167 


005660 


123716 


000003 




CMPB 


•3.(SP1 


(IS IT CTPL C? 


1168 


005664 


001534 






BEQ 


CTRLCA 


(BR IF YES, 


1169 


005666 


005736 






POPSP 




(REMOVE CHAR FROM STACK. 


1170 


005670 


000004 


005676 


000000 


PIROg 


ii*#0 


(Q DEVICE SERVICE, 


U71 
1173 










J KEYBOARD SERVICE. 




1173 
1174 


005676 


023737 


001036 


016346 


1»« CMP 


KBPTR,»KBUF+KBUFL (BUFFER EXCEEDED? 


1175 


005704 


001511 






BEO 


12* 


(BP IF YES, 


1176 


005706 


017746 


173236 




NOV 


BTK8,-(SP) 


(GET CHAR. 


J 177 


005713 


043716 


000200 




BIC 


1200. (SP) 


(CLEAR PARITY BIT, 


1178 


005716 


131637 


000177 




CMPB 


(SP),»177 


(RU80UT? 


1179 


005732 


001443 






BEO 


?* 


(BR IF YES, 


1180 


005724 


121627 


000040 




CMPB 


(SP)» »40 


(SPACE? (IGNORE LEAPING ONES), 


1181 


005730 


001460 






BEQ 


8* 


(BR IF YES, 


1183 


005733 


121627 


000015 




CMPB 


(SP),»15 


(CR? (TIME TO QUIT?). 


1183 


005736 


001462 






BEO 


9t 


(BR IF YES, 


1184 


005740 


131637 


000012 




CMPB 


CSP)#»12 


(LF? (TREAT LIKE CR). 


1185 


005744 


001457 






BEQ 


9S 


(BR IF YES. 


1186 


005746 


131627 


O0O06Q 




CMPB 


(SP)»»60 


(CHAR LESS THAN 607 


1197 


005753 


103435 






BLO 


10* 


(BR IF YES. IGNORE IT. 


1188 


005754 


121637 


000141 




CMPB 


(SP),ti41 


(CHAR LESS THAN LOWER CASE A? 


1189 


005760 


103405 






BLO 


2* 


(BR IF YES, 


1190 


005763 


131637 


000172 




CMPB 


(SP)»»172 


(CHAR HIGHER THAN LOWER CASE Z? 


1191 


005766 


101017 






BHI 


10* 


(BR IF YES. 


1193 


005770 


163716 


000040 




SUB 


«40»<SP) 


(LOWER CASE CHAR. MAKE IT UPPER 


1193 


005774 


111677 


173036 




38 1 MOVB 


(SPi.PKBPTR 


(STORE CHAR, 


1194 


006000 


005337 


001036 




INC 


KBPTR 


(UPDATE BUFFER POINTER, 


1195 


006004 


113637 


001240 




311 MOVB 


(SP)+»TTYByT 


(CHAR TO ECHO BUFFER. 


1196 


006010 


104406 


001240 




MSGt, 


TTYBYT 


(ECHO THE CHARACTER. 


1197 


006014 


052777 


000100 


173134 


4li BIS 


«IE,8TKS 


(REENABLE KYBD INTERRUPTS, 


1198 


006033 


000137 


001702 




JMP 


QUETST 




1199 


006036 


009736 






loti POPSP 






1300 


006030 


000771 






BR 


4* 




1301 
















1303 










(SERVICE DELETE/RUBOUT CODE. 




1303 
















1304 


006033 


022737 


016306 


001036 


511 CMP 


»KBUF, KBPTR 


(BUFFER EMPTY? 


1305 


006040 


001405 






BEQ 


6* 


(BR IF YES, 


1306 


006043 


005337 


001036 




DEC 


KBPTR 


(POINT TO PREVIOUS CHAR, 


1307 


006046 


117716 


173764 




MOVB 


9KBPTR,(8P] 


(GET PREVIOUS CHAR, 


1308 


006053 


000754 






BR 


3* 


(GO ECHO IT, 


1309 


006054 


009736 






6*1 POPSP 






1210 


006056 


104406 


014155 




MSG*, 


ACRLF 


(OUTPUT CRLF, 


1311 


006063 


013737 


016306 


001036 


7*1 MOV 


IKBUF, KBPTR 


(RESET KBUF POINTER. 


}313 


00«07Q 


000751 






BR 


4* 




1313 
1314 










(SERVICE SPACE. 




1315 
1316 


0O6O73 


032737 


016306 


001036 


8(1 CMP 


IKBUF, KBPTR 


(LEADING SPACE? 


1317 


006100 


001741 






BEO 


3t 


iBR IF YES (IGNORE IT), 



Que occ/xii aHoitT monitod 

DX0ABM.P11 ai««PR>7T 13l43 

taiS 006i03 000734 

1 SI $ 

1330 

1331 

1332 006104 113677 172736 
1323 OOSUO 013737 016306 

1334 006116 104496 01415S 

1335 006133 104401 007330 
1326 

1327 
1238 

1229 006130 104406 014416 

!?30 006134 000752 



MACYH 37(1008) 33«*PB-77 l3rS3 PACE 4S 



SCO 01«9 



BR 31 

J SERVICE CR ANC ir. 

9»> MOVB (SP)'t'i9KBPTR 

001036 MOV IKBUF.KBPTR 

MSG«,ACRLF 
000000 OUE$(OECODE,0 

I SERVICE KBUF QVCPFLOM, 

13(1 MSGIiKBOrLO 
BR 7» 



»STORE IT. 



tSTORE CH&R, 

jPOINT TO START OF KBUF, 
jOUTPUT CRLF 

jQUE TO SERVICE COMMAND, 



tTYPE KBUF OFLO. 



OAED DKC/Xn SMORT MONITOR 
DXO&SM.Pii 21-APR-77 I2|42 



123J 
1J33 
1333 
1334 
1235 
1336 
1237 
1236 
1239 
1240 
1241 
12*2 
1243 

1745 
1246 
1247 
1248 
12«9 
1250 
1251 
1252 
1253 
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iSERVICE CTRL C. ENDS RUN MODE ALSO. 

(DROPS TO BANKS AND 1 BEFORE RETURNING (IF KTl 1 lU USE) 
I STACK POINTER SHOULD BE SETUP AHEAD OF CALL TO CTRLX TO PRESERVE 
iNEEDEP INFORMATION PRIOR TO REMAPPINR TO 0. OR CAUSE REWAPPING TO 
»CURREMT AREA AFTER 



SEO 0200 



006136 


012706 


016546 


CTRLCAt 


MOV 


«SPBQT,SP 


(REINITIALIZE STACK POINTER 


006142 


004137 


006230 


CTRLCBt 


J5R 


PC.CTRLX 


jCLEAR QUEUES, TYPE *C 


006146 


005037 


001 224 




CLH 


OFFSTD 


)GET PROGRAM BACK TO BANK 


006152 


004737 


014060 




JSR 


PC.MVCODE 




006156 


105737 


001257 




TSTB 


RMODE 


(IN RUN MODE? 


n06163 


001003 






BNE 


11 




006164 


0001 37 


007374 




JMP 


C0MC03 


(BACK TO KYBD ROUTINE. 


f>n(> 1 '0 




001357 


ISf 


etPB 


(»»^I>E 


rCt/FtW POU "OOe I«l!>TC»TOP 


006174 


105737 


001360 




TSTB 


CHN 


jTN CHAIN MODF? 


00*200 


10041 1 






BKI 


CTRLCD 


»BR IF YES. BYPASS SUMMARY AND RETURN TO 
SCHAIN MONITOR 


006203 


052777 


000100 


172736 


BIS 


•lE.RTKS 


(REENABLE KEYBOARD INTERRUPTS 


006J1 


104406 


014136 




MSG6, 


, suMAPy 


(TYPE BUN END SUMMARY TITLE, 


006314 


104406 


014125 


2Sl 


MSGd 


.CR 


iCARRIAGE RETURN 


fln6?2n 


004737 


010274 




JSP 


PCDIRA 


(TYPE RUN SUMMARY, 


006224 


0001 37 


012722 


CTPLCDi 


JMP 


CHNOUT 


;EXIT, OR RETURN TO KYBD RTN, 
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SEO 0201 



1254 


006230 


012746 


000340 




CTRlXl 


MOV 


#PRTV7»»tSP) 


(SETUP VEH PSW On STACK 


1255 


006234 


012746 


006242 






MOV 


*46»"(SP) 


J PUT RETURN PC ON STACK 


1255 


006240 


000002 








RTI 




jLOAD NEW PSW AND CONTINUE 


1257 


006242 


012737 


000144 


001 374 


4(1 


MOV 


1 100 « iCSTAkT 


(CLEAR QUEUES AND DtrLAY T00« 


1258 
1 259 


006250 


105737 


001257 






TSTB 


RMODE 


J IF NOT IN RMODE» SHORTEN WAIT 


1 260 


006254 


001003 








BNE 


It 




1261 


006256 


012737 


000010 


001374 




MOV 


•lOiCSTABT 




1 262 


006264 


004737 


012272 




ISl 


JSP 


PCrCLRQUS 


(CLEAR QUEUES, 


1263 


006270 


005337 


001374 






DEC 


CSTABT 


J PONE? 


1264 


006274 


001 373 








BNE 


1$ 


jBR IF NOT, 


1265 


006276 


011604 








MOV 


CSP) ,R4 


J SAVE RETURN PC 


1266 


006300 


000005 








RESET 






1267 


006302 


010416 








MOV 


P4» CSP) 


(RESTORE RETURN pC IN CURRENT I 


1268 


006304 


004737 


012272 






JSB 


PCfCLRQUS 


(CLEAR QUEUES IN BANK 




006 310 


005046 






3»« 


CtjR 


* ( 5P) 




1270 


006312 


012746 


006330 






MOV 


«5I,-(SP) 


(PUT RETURN PC ON STACK 


1271 


006316 


000002 






5Si 


RTI 




(LOAD NEW PSW AND CONTINUE 


1272 


006320 


105237 


001013 




INCB 


BRAKE 


(SET BRAKE TO PREVENT BACKCROU! 


1273 


006324 


013737 


001266 


001264 




MOV 


ROTNUM.BOTCNT 


JPESET THE ROTATION COUNTER 


1274 


006332 


104406 


014153 






MSGS> 


CTRLC 


(OUTPUT 'C 


1275 


006336 


000207 








RTS 


PC 


(EXIT. 
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1276 






(SUBROUTINE 


TO TYPE MULTIPLE 


ASCII STBINGS. NOTE THnT THE 


1277 






(VALUE OF R5 


TS NOT SAVED, 




1278 












1279 


006340 


005726 


TYPEKi TST 


(SP) + 


(REMOVE OLD P5 FROM STACK 


1280 


006342 


012546 


TYPElI MOV 


tJ)+r-tSP5 


(GET ASCII ADOPTSS. 


)3«1 


006344 


001403 


BEQ 


It 


(BR IF n TERMINATOR. 


1282 


006346 


004737 006356 


JSR 


PC, TYPE 


jTYPE IT. 


1283 


006352 


000773 


BR 


TYPE! 


(GET MORE. 


1284 


006354 


000205 


l»l RTS 


R5 


(RETURN . 
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SEQ 0203 



1285 










»TYPE 


SUBROUTINE, 




139$ 










• TYPES 


ASCIE 


STRIVE 




1287 










Inote 


THAT IF 


RHODE IS SET BUT 


MODULES AREN'T YET BEING 


1288 










iMUST 


BE SET 


TO PREVENT STARING 


MODULES WHILE TYPING 


1289 


















1290 


006356 


012737 


006426 


001410 




MOV 


ilTSRVl.TTYLNK 




1291 


006364 


012637 


001106 






MOV 


CSP3+iTYPRET 


J SAVE RETURN ADDRESS 


1292 


006370 


012637 


001104 






MOV 


tSP)+iTYPADR 


:SAVE MESSAGE ADDRESS 


1293 


006314 


010137 


001124 






MOV 


Rl.TYPRi 


iSAVE REGISTERS 1>S 


1294 


006400 


012701 


001126 






MOV 


tTYPRJ.Ri 




1295 


006404 


010221 








MOV 


R2,(Rn'*' 




1296 


006406 


010321 








MOV 


R3, CRD* 




1297 


006410 


010421 








MOV 


R4, CRn + 




1298 


006412 


010521 








MOV 


R5,CR1)+ 




1299 


006414 


012777 


000100 


172530 




MOV 


«100»9TPS 


:SET IE 


1300 


















1301 


















1302 


















1303 


















1304 


















1305 


















1306 


















1307 


















1308 


















1309 


















1310 


















13U 


















1312 


















1313 


















1314 


















1315 


















1316 


















1317 


















1318 


















1319 


















1320 


006422 


000137 


001702 






JMP 


QUETST 




1321 


006426 


117746 


172452 




TTSPVU M0V8 


9TYPADR,-(SP) 


tGET CHAR. 


1322 


006432 


001015 








BWE 


TYPES 


)BR IF NOT TERMINATOR, 


1323 


006434 


005726 








TST 


(SP) + 




1324 


006436 


012701 


001126 






MOV 


ITYPR2»Rl 


jRESTORE REGISTERS t-5 


1325 


006442 


012102 








MOV 


(P1)+»P2 




! 326 


006444 


01210 3 








MOV 


CRl)*sR3 




1327 


006446 


012104 








MOV 


tRn + »R4 




1328 


006450 


012105 








MOV 


(R1)+»P5 




1329 


006452 


013701 


001124 






MOV 


TYPRl.Rl 




1330 


006456 


005077 


172470 






CIiR 


9TPS 


jCLEAR IE 


1331 


006462 


000177 


172420 






JMP 


9TyPRET 




1 332 


















1333 


















1334 


006466 


062737 


000001 


001104 


TtPEBl 


ADD 


•i.TYPADR 




1335 


006474 


122716 


000045 






CHPB 


#45. tSP) 


lis IT *7 


1316 


006500 


001017 








PNE 


TYPEL 


|N0- BRANCH 


1317 


006502 


112716 


000015 




TYPECj 


MOVB 


•15r (SP) 


jOUTPUT CP. 


1338 


006506 


012737 


006516 


001410 




MOV 


•ISfTTYLWK 




1339 


006514 


000431 








BR 


TYPEL 




1340 


006516 


U2746 


000012 




111 


MOVB 


#12, -(3P) 


jOUTPuT LF. 
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1341 
1342 
1343 



1344 


006522 


012737 


006532 


001410 




MOV 


»2S,TTYLNK 




1345 


006530 


000423 








BR 


TYPEL 




1346 


006532 


113737 


001254 


001020 


2St 


MOVB 


FILCNT,FILCTR 


>GET FILL COUNT. 


1347 


006540 


001002 








BNE 


TYPEE 


»BR IF NOT 0. 


1348 


006542 


105237 


001020 






INCB 


FILCTR 


jOOPS, MAKE IT A 1, 


1349 


006546 


1 13746 


001255 




TYPEEj 


MOVB 


FILLER, -CSPl 


(OUTPUT FILLER, 


1150 


006552 


012737 


006562 


001410 


TYPEOl 


MOV 


I3S,TTYLNK 




1351 


006560 


000407 








BR 


TYPEL 




1352 


006562 


105337 


001020 




ISt 


DECB 


FILCTR 


fDECREMENT FILL COUNTER 


1353 


006566 


001367 








BNE 


TYPEE 


jBR IF NOT 0. 


1354 


00*570 


013737 


006426 


001410 




MOV 


«TTSBVi,TTYLNK 




1355 


006576 


00071 1 








BP 


TTSPVl 




1 356 


006600 


012677 


172350 




TYPEL! 


MOV 


(SP)+,STPB 




1357 


006604 


012737 


010000 


001110 




MOV 


110000, TYPCTP 




1358 


006612 


000137 


001702 






JMP 


QHETST 
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SEO 02ns 



1359 
1360 










IROUTINE TO 


SERVICE CKDATA CALL 


(CDATAI) 


13£1 


006616 


U3737 


177777 


001315 


DATCK. t 


MOVB 


t'l.DATFLG 


tSET FLAG FOR DATACK CALL 


1363 


006634 


000403 








BR 


CKCONT 


tCONTINUE 


1363 


006636 


105037 


001315 




CDATA.I 


CLRB 


DATFLG 


fSET FLAG FOR CKDATA CALL 


1364 
1365 


006633 


005037 


001143 




CKCONTl 


CtR 


COFLG 




1)66 


006636 


005037 


001114 






CtR 


DERRCT 


llNITIALIZE DATA ERROR COUNT 


1367 


006643 


004437 


013244 






J8R 


R4.SAV04 


(TEMPORARILY SAVE R€GS 


136S 


006646 


016604 


000013 






MOV 


13(SP),R4 


iGET PC+2 OF CALL 


1369 


006653 


010437 


001400 




CDATAl i 


HOV 


R4,CDERR1 


1 SETUP PC OF CALL 


1370 


006656 


163737 


000003 


001400 




SUB 


t2,CDERRl 




1371 


006664 


013401 








HOV 


CR4)+fRl 


(GET BEGIN ADDRESS OF MODULE 


1373 


006666 


013403 








MOV 


CR4)+»R3 


(GET TABLE ADDRESS OF RBUFPA FROM MODULE 


1373 


006670 


010361 


000053 






HOV 


R3,SBADR(Rn 


JSAVE IT 


1374 


006674 


063701 


000033 






ADD 


»SVR0»R1 


ISAVC MODULE'S REGISTERS 


1375 


OO67OO 


013631 








HOV 


tSP) + ,(Rn + 




1376 


006703 


013631 








MOV 


(sp)+.(Rn+ 




1377 


006704 


013631 








MOV 


(sp)+,cRn+ 




1378 


006706 


013631 








MOV 


(SP)+,(Rn+ 




1379 


QO67IO 


013631 








MOV 


(sp)+,(Rn+ 




1380 


006713 


010511 








MOV 


RS.CRU 




1381 


006714 


033636 








CMP 


CSP)+#(SP)+ 




1383 


006716 


016401 


177774 






MOV 


-4(R4),R1 


1 RESTORE MODULE ADDR 


1383 


006732 


013300 








MOV 


(3)+.R0 


16ET READ BUFFER PA 


1384 


006734 


00S733 








TST 


t35 + 


?SKIP GA BITS 


1385 


006736 


013305 








MOV 


(3)+>R5 


•BUFFER WORD COUNT 


1386 


006730 


016103 


000074 






HOV 


WBurPA(Rn,R3 


ICET WRITE BUFFER PA 


1387 


006734 


005003 








CLR 


B3 


iCLEAR OUT REG, 3 


1388 


006736 


005737 


001143 






TST 


CDFLG 


jENTEBED FROM DATA ERROR PETUPNT 


1389 


006743 


001413 








BEQ 


30t 


|N0> BRANCH 


1390 


006744 


013603 








MOV 


(SP)+,R3 


jVES- GET COUNT 


1391 


006746 


005303 








INC 


R3 




1393 


006750 


006303 








ASL 


R3 


jCREATE OFFSET 


1393 


OO6753 


060300 








ADD 


R3,R0 


(GET ADDRESS OF CURPENT READ BUFFER WORD 


1394 


006754 


103003 








BCC 


. + 10 




1395 


006756 


060303 








ADD 


R3,R3 


jGET ADDRESS OF CURRENT WRITE BUFFER rtORD 


1396 


006760 


103003 








BCC 


. + 10 




1397 


006763 


006203 








ASR 


R3 


J RESTORE COUNT 


1398 


006764 


160305 








SUB 


R3,R5 


jCALCULATE WORDS LEFT 


1399 


006766 


013637 


001114 






HOV 


(SP)+>DGRRCT 


» RESTORE DATA ERROR COUNT 


1400 


006773 








soil 








1401 


006773 


021013 






lit 


CHP 


RR0.9R2 


JOATA OKT 


1403 


006774 


001437 








BEO 


3t 


tYES, BRANCH 


1403 


006776 


005237 


001114 






INC 


DERPCT 


|N0, COUNT DATA ERROR 


1404 


007003 


033737 


001114 


000003 




CMP 


DERRCT, #3 


iMORE THAN 3 GRRQRST 


1405 


007010 


003404 








BLE 


2« 


J HO- REPORT EOROR 


1406 


007013 


033777 


003000 


173136 




BIT 


«BIT10r«>SR 


J YES- REPORT ALL? 


1407 


007030 


001415 








BEQ 


3« 


JNO- BRANCH 


1408 


007032 


011061 


000060 




211 


HOV 


RROfAHASCPn 


ISAVE ACTUAL DATA 


1409 


007036 


011361 


000056 






HOV 


»R3,ASB(R1) 


ISAVG EXPECTED DATA 


1410 


007033 


010361 


000054 






MOV 


R3,VIASADR(R1) 


iSAVE COUNT 


1411 


007036 


013746 


001114 






MOV 


DERRCT, -CSP) 


jSAVE DATA ERROR COUNT 


1413 


007042 


010346 








MOV 


R3,-(SP) 


iSAVE WORD COUNT OH STACK 


1413 


007044 


013746 


001400 






HOV 


CDERBl,-tSP) 


iSAVE VA OF CFDATA CALL 


1414 


007050 


000137 


001376 






JHP 


COEPR 


jGO TO ERROR CALL 
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1415 


007054 


005203 






311 


INC 


P3 


(COUNT WORDS CHECKED 


1416 


007056 


005720 








TST 


tR0) + 




1417 


007060 


005732 








TST 


CR3) + 




1418 


007062 


005305 






5«t 


DEC 


RS 




1419 


007064 


001342 








BNE 


It 




1430 


007066 


005737 


001114 






TST 


DERPCT 


(ANY D6TA ERP0RS7 


1431 


007073 


001003 








BNE 


61 


(YES, BRANCH 


1433 


007074 


012437 


001054 






HOV 


(R4)+,DSTArR 


(GET THE RETURN ADDRESS 


1433 


007100 


000433 








BR 


7« 


(GO TO COMMON RETURN CODE 


1434 


007102 


005261 


000030 




6li 


INC 


ERCNT(Rn 


(DATA ERRORS OCCURRED- UP MODULE ERROR 


1435 
















•COUNT BY 1 


1436 


60''106 


001002 








BNE 


.+6 




1437 


007110 


005161 


000030 






COH 


ERCNTCPl) 


(SET TO -1 IF 


1438 


007114 


013761 


001114 


000060 




HOV 


DERPCT, AWAStRl ) 


•STORE INFORMATION IN MODULE 


1439 


007123 


010361 


000056 






HOV 


R3,ASB(Rn 


jSTOpG SZZ£ A$B 


1430 


007126 


010446 








MOV 


R4.-CSP) 


(SAVE POINTER TO ERROR RETURN ADDRESS 


1431 


007130 


010661 


000046 






MOV 


SP,SVR6tRl) 


(SAVE STACK POINTER 


1433 


007134 


104422 








MSGDt 




(REPORT TOTALS, HALT MODULE IF NEEDED 


1433 


007136 


012604 








MOV 


CSP)+,R4 


(GET ERROR RETURN POINTER 


1434 


007140 


0)3701 


001123 






MOV 


MDDADR,P1 


(GET MODULE START ADDRESS 


1435 


007144 


012437 


001054 






HOV 


CR4)+,DSTADR 


(GET THE RETURN ADDRESS 


1436 


007150 


105737 


001315 




7»t 


TSTB 


DATFLG 


(IS THIS A DATACK CALL 7 


1437 


007154 


100003 








BPL 


et 


(NO, CONTINUE 


1438 


007156 


013734 


001114 






HOV 


DERPCT, R(R4)+ 


(YES, LOAD tIK NUMBICR OF DATA ERRORS 


1439 


007162 


116137 


000030 


001066 


Stt 


MOVB 


STAItRl),RSTAT 


(SET UP FOR MODULE RETURN 


1440 


007170 


010100 








MOV 


Rl.RO 




1441 


0O7l72 


062700 


000046 






ADD 


*SVR6,Rfl 




1443 


007176 


000137 


003570 






JMP 


lOQSVD 




1443 
1444 


007202 


005746 






CORETt 


TST 


-(SP) 


(PUSH STACK 


1445 


007304 


004437 


013344 






JSR 


R4,SAV04 




1446 


007310 


016604 


000014 






HOV 


14(SP),R4 


(GET VA OF CKDATA CSLL 


1447 


007314 


062704 


000002 






ADD 


12, R4 




1446 


007320 


005237 


001142 






INC 


CDFLG 




1449 


007334 


000137 


006652 






JHP 


COATAl 





a»EO DEC/Xll SHORT MONITOR 
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DXOkBK 


Ptl 21 


-HPR-77 


12)43 










1450 








iCOMWAND DECODER. CHECKS SYNTAX 


AGAINST COMMAND TABLE. 


! 45 1 










ARE CHECKED AGAINST THE QUOTES, NO ABBREVIATIONS ALLOWED 


1452 
1453 


007230 


105737 


001010 




_ _ 


SPCFt/G 




1454 


007234 


001404 






MB 


1 1 




145S 


007236 


005037 


001010 










1456 


007242 


000177 


171610 




TMD 


POKE. IKPI 


t fin VTl Q&ITTOM 


1457 


007246 


105737 


001257 


I » t 


T«TB 


RMODC 


lIN RUN HODE? 


1458 


007352 


001403 






nrn 


2$ 




14SS 


007254 


104406 


014304 




M«r« 


INVCOl 


1 'INVALID CMD ONLY CNTL C IS OK' 


1460 


007260 


000441 






DO 


mucnK 




1461 


007262 


004437 


012244 


2i 1 


JSR 


OA e&vnA 

t 3^ V 


{SAVE REGS 0*4 


1462 


007566 


01 3700 


001036 




HOV 


KBPTHf PO 


; POINTER TO PO. 


1463 


007272 


012701 


015232 


GTOK i 


MOV 


f Cd'^TAB# PI 


jDEVICC DECODING CO'^ES HERE 


1464 


007276 


010046 




GTOKX t 


MQV 


ROf *CSP) 


iSAVE STRING POINTER 


1465 


007100 


122021 




GTOKl f 


C^P^ 


rR^^+. f R1 ^+ 


|MATCH THE CHARACTER? 


1466 


007302 


001407 






BCQ 


GT0K2 


lYEPf SEE IF THE REST MATCH 


1467 


007304 


105721 






TSTB 


CRl ) + 


>N0( GO CHECK AGAINST NEXT 


146S 


007306 


001376 






BNE 




SBUT FIND WHERE NEXT ENTRY IS 


1469 


007310 


111102 








[ R 1 J f r 2 


1 DISPLACE'^'ENT TO NEXT ENTRY 


1470 


007312 


001422 






BEO^ 


COMCO 1 


fNO SUCH THING 


1471 


007314 


ssosns 




MORE! 


ABO 




t POINT TO NEXT ENTRY 


J472 


007316 


011600 






MOV 


(SP) iPO 


iPOINT TO BEGINNING OF INPUT 


1473 


007320 


0007S7 






BR 


GTOKl 


jKEEP LOOKING 


1474 


007322 


105711 




GT0K2J 


TSTB 


tRl) 


IliAST CHR IN ENTRY? 


1475 


007324 


001365 






BNE 


GTOKl 


|N0, CHECK THE OTHER CHR'S 


1476 


007326 


122126 






CMPB 


tRl)+f (SP5+ 


IRCSET SP AND Ri 


1477 


007330 


111102 






MOVB 


(RD.BZ 


(GET DISPATCH ADDRESS 


1478 


007332 


060201 






ADD 


R2,R1 


»R1 POINTS TO NEXT ENTRY 


1479 


007334 


014137 


001372 




MOV 


-tPn.CADDR 




1480 


007340 


005037 


001374 




CLR 


CSTART 


ISET MODULE &DDR IN CSTART TO 0. 


1481 


007344 


010037 


001036 




MOV 


ROtKBPTR 


jSAVE CURRENT BUFFER POINTER, 


1482 


007350 


004737 


012256 




JSP 


PC,RST04 


> RESTORE REGS 0-4. 


1483 


007354 


000137 


001362 




JMP 


COMOUE 


•GO TO COMMON QUE CALL. 
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1484 








1485 








1486 








1497 


007360 


104406 


014272 


1488 


007364 






1489 


007364 


005037 


001010 


1490 








1491 


007370 


105037 


001272 


1492 


007374 


1 04406 


014122 


1493 


OO74O0 


0001 37 


001650 



(COMMON RETURN FROM COMMAND EXECUTION AND RUN ROUTIME (INCLUDING 
« RELOCATION AND INTERNAL RESTART) 

COMCOl! MSGS.INVCMD »TyPE INVALID COMMAND. 

COMCONi 

C0MC02: CLR SPCFLG sCLEAR SPECIAL FLAG AND 

SDIR COMMAND INDICATOR. 
CLR8 FILtJD jCLEAR FILL COMMAND INDICATOR. 

C0MCO3J MSGS, DOT iTYPE DOT. 

C0MC04« JMP INPUT jGO GET MORF INPUT. 
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SEO 0209 



1494 (SPECIAL INPUT ROUTINE. 

1495 tCALLED BY HDDirif ROUTINE, WHEN WAITING FOR NEW VALUE TO BE INPUT, 
1496 

1497 007404 012637 nOlOSS SIHPUTi MOV (SPHiSRETRN iSAVE RETURN ADDR, 

1498 007410 10S237 001010 INCB SPCFLS iSET SPECIAL FLAG. 

1499 007414 000771 BR C0HC04 
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1500 










»PUN 


ROUTINE 


. STARTS EXERCISER EXECUTION!, 


ISOl 










iNOTE 


THAT " 


PUN 


' IS ENTERED ONLV 


FpriH BAN" 0, PUT "RUNRES" IS USED WHEN 


1S02 










I THE 


PROGRAM 


IS 


NOT IN BANK 0, 




1503 




















1504 


007416 


000402 








BR 




, + 6 




1505 


007420 


105037 


001275 




RUNi 


CLRB 




LOCK 


iCLEAR LOCK. TO ALt.Ol-: CODE RELOCATION 


1506 


007424 


005037 


001224 






CLR 




OFFSTD 




1507 


007430 


005037 


001244 






CLR 




SYSCNT 


iZFRO SYSTI-y ERROR COUNTER 


1508 


007434 


005037 


001246 






CLR 




PWRCNT 


;ZERO pOWfCp FAIL CO!'NTEP 


1509 


0074*0 


012737 


042761 


010470 


2ti 


MOV 




M276l,SLDSB 


;RESTORF THES^" IMSTPUCTIONS 


1510 


007446 


012737 


042761 


010512 




MOV 




«42761,SLDSE 


JFOR A CHECK SUM MQr'ULE 


1511 


007454 


105037 


001274 






CLRB 




PUNPFL 




1512 


007460 


105037 


001257 






CLRB 




RMORE 




1513 


007464 


012737 


016234 


001250 




MOV 




«M0DQ-2,BKPTR 




1514 


007472 


004737 


012354 






JSP 




PC.CLRVEC 


(INITIALIZE TRAPCSTCHEP IN VECTOR AREA 


1515 


007476 


004737 


012272 




RUNRESI JSR 




PC.CLRQUS 


■IMCLUDES CLEARING RPAKE, MODCNT, lOPK ID 


1516 


O07502 


112737 


177777 


001023 


llSl 


MOVB 




«-l ,WBFLG 


■INITIALIZE BUFFER BOTATION FLAG 


1517 


007510 


012702 


016236 






MOV 




»"0D0,R2 


(SETUP TO COU-iT SELS-CTED MODULES, AMD 


1519 


















IF NOT SYSEPR OR POWER FAIL RESTART 


1519 


















(CLEAR MODULES' PASCNT AND ERRCNT. 


1520 


007514 


012201 






ISI 


MOV 




C2)+,Bl 


(MODULE AODP TO Rl . 


1521 


007516 


001462 








BEQ 




RUNC 


(BR IF NO MORE. 


1522 


007520 


105737 


001257 






TSIB 




PMODE 


(INTERNAL RESTABT? 


1523 


007524 


001012 








BNE 




2» 


(BR IF YES. 


1524 


007526 


105737 


001260 






TSTB 




CHN 


(IN CHAIN MODE? 


1525 


007532 


100407 








BMI 




2$ 


(BR IF YES. 


1526 


007534 


005061 


000026 






CLR 




PSCNTCR!) 


•CLEAR MOH'S PASCNT. 


1527 


007540 


005061 


000030 






CLR 




ERCNTCRl) 


(CLEAR MOD'S ERROR COUNT. 


1528 


007544 


042761 


020000 


000020 




BIC 




»BIT13,STAT(Pn 


■CLEAR STOPPED BIT. 


1529 


007552 


032761 


040000 


000020 


2S| 


BIT 




»BIT14.STATtRl) 


(MODULE SELECTED? 


1530 


007560 


001755 








BEQ 




IS 


BR IF NOT. 


1531 


007562 


032761 


020000 


000020 




BIT 




#BIT13,STAT{R1 ) 


(MODULE STOPPED? 


1532 


007570 


001351 








BNE 




1$ 


(BR IF YES. 


1533 


007572 


005737 


001222 






TST 




OFFSET 


(IF OFFSET 0, IGNORE PITS 10+11 


1534 


007576 


001414 








BEQ 




38 




1535 


007600 


032761 


004000 


000020 




BIT 




#8IT11,STAT(R1) 


(NOT 0- IF BITll TS SET, DON'T COUNT IT 


1536 


007606 


001342 








BNE 




IS 




1537 


007610 


032737 


001777 


001222 




BIT 




#1777, OFFSET 


(32K BOUNDARY? 


1538 


007616 


001404 








BEQ 




3S 


(YES- IGNORE BIT 10 


1539 


007620 


032761 


002000 


000020 




BIT 




#BlT10,STAT(Rn 


(NO- BIT 10 SET? 


1540 


007626 


001332 








BNE 




IS 


YES- DON'T RUN THIS MODULE 


1541 


007630 


105237 


001015 




3tl 


INCB 




MODCNT 


NO, UP COUNT OF RUNABLE MODULES, 


1542 


007634 


005761 


000020 






TST 




STAT(Rn 


(BKHOD? 


1543 


007640 


100402 








BMI 




. + 6 


NO- BRANCH 


1544 


007642 


105237 


001025 






INCB 






YES- UP COUNT 


1545 


007646 


032761 


010000 


000020 




BIT 




#BIT12,STAT(Pn 


EXTENDED MODULE? 


1546 


007654 


001402 








BEQ 




.+6 


NO- BRANCH 


1547 


007656 


105237 


001026 






INCB 




XCNT 


YES- COUNT IT 


1548 


007662 


000714 








BR 




IS 


GO CHECK NEXT MODULE, 


1549 


007664 


105737 


001015 




RUNCi 


TSTB 




MODCNT 


ANY RUNABLE MODULES? 


1550 


007670 


001005 








BNE 




5S 


YES, BRANCH 


15S1 


007672 


005737 


001222 






TST 




OFFSET 


NO, OFFSET 07 


1552 


007676 


001501 








BEQ 




RUND 


YES- COMMAND INVALID 


1553 


007700 


000137 


004604 






JMP 




ENDSVB 


NO- THE ONLY MODS RUNNABLE MUST BE THOSE 


1554 


















WITH BITS 10 OR 11 SET- RELOCATE 


1555 


007704 


113737 


001015 


001016 


5«i 


MOVB 




MODCNT, MODCTR 


LOAD COUNT OF RUNNABLE MODULES 



q«EQ DEC/XU 1 


SHORT MOHITOP 


MACYl 1 


27 (1006 ) 


22»i 


ilPp«77 1 2 1 53 PAGE 


57 


DXQABM.PU 


Jl-APR-77 


12|42 












1S56 
















IXNTD oTAHXUr tUUNTc.f< 


15S7 


007712 


012737 


016234 


A A 4 A A A 






#H0DQ*2# MOOPTR 


J MODULE TABLE APOR TO MODPTP t 


1558 


007720 


012737 


040000 


A A 1 AK n 

vol 0" V 




wnu 




3 START WITH SPEC I AL BACKGROUNI^ MODULES « 


15S9 


067726 


105237 


001320 










y 5ET TnC "'uN*5TDr r L AG 


1S60 


007732 


105737 


001261 






Iffi 


PDTI 




1S6! 


007736 


00144? 










25 




1S62 


007740 


1 13737 


001026 


- 

0010 Jl 




MOVB 


Nil ti\J T 


, BIT TIT D DnTJlTTflM TTUPnTTf PflfTlTTPO— tC TTUPfi 

JoLlUr HUTATiUn TInbUUT CUUMTCK* 16 Txne.a 


1563 
















jOF EXTENDED MODULES 


1564 


007746 


10633? 


001031 






ASLB 


POTCT 




1565 


007752 


10633? 


001031 








potct 




1566 


007756 


106337 


001031 






ASLB 


ROTCT 




1567 


007762 


10633? 


001031 












156S 


007766 


123727 


001026 


A A A A 9 A 






XCNT f #20 


jPkEVENT LOSS Or COUNT TF OVERFLOW 


1569 


007774 


103403 








ftT n 






1570 


007776 


112737 


000377 


001031 






i 377 » ROTCT 




1571 


010004 


1 13737 


001031 


001 302 


1 9 ! 


MnVR 


rOTCTi $GWBFC 


tINITIAuIZE WRITE BUFFER ROTATION COUNTER 


1572 


010012 


1 13737 


OOiOiS 


001033 




MOVB 


Mnn/^MV D&BDPT 

nUUv"T# rAsHblj 


{SET ALTERNATE RELOCATION COUNT TO 8 


1573 


010020 


1 06337 


OOiC33 






ASLB 




1 TIMES MODC^JT 


1574 


010024 


1 06337 


001033 








P AgPElj 




1S7S 


010030 


106337 


001033 








P ASPEti 




1576 


010034 


123727 


001015 


0000*0 




rUDB 






1577 


010042 


103403 








nx n 


3ft 




1578 


010044 


1 1273? 


00037? 


001033 




unvft 


i 377 f PASREL 




1579 


010052 


004737 


010126 




38 1 




PC 9 SETWBF 






*;0036 








** • 


* ^ * 






1581 


010062 


001005 








BnE 


48 




1582 


010064 


! 04406 


014122 






MSGS i 


f DOT 




1583 


010070 


1 1 2737 


A A AAA 1 


012 








■ aiTT eunnc Ti^r ^ttbscmt* dxuv 
J St A RnUDt AN tURRt-*'T iSANfv 


1584 


010076 


00013? 


001650 




48 t 


JMP ! 


[NPUT 




1585 


010102 


00503? 


001224 




PUNDI 


CLR 


OFFSTD 




1586 


010106 


00473? 


014060 






JSP 


PC,HVCODE 




1587 


010112 


10503? 


001257 






CLRB 


RMODE 




1588 


010116 


104406 


014346 






MSGS, 


»INVCD4 


I'NO MODULES SELECTED' 


1589 


010122 


000137 


007364 






JMP 


COMCON 





SEQ 0211 
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1590 










» SETUP 


KRITE 


PUFFER INFORMATION 




1591 


















1592 


0101 26 


005037 


000076 




SETWBFl 


CLR 


WBUFEA 


jZEBO EA BITS 


1593 


010132 


01 373? 


001200 


001212 




MOV 


LOCORE,WBtIF 


;L0AD STAPTINC3 ADP OF WBITE BUFFER 


1594 


010140 


01373? 


001204 


001216 




MDV 


LC0P12»WBUEt2 




1595 


010146 


06373? 


001222 


001216 




ADD 


OFFSET, WBtJri2 




1596 


010154 


02373? 


001216 


001206 




CHP 


WPUF12,HC0P12 


J IS WRITE BUFFER AT THE TOP ? 


1597 


010162 


001001 








BNE 


SETWBl 


!N0, IT'S OK, CONTINUE 


1599 


O10164 


00020? 








RTS 


PC 


fRETURN 


1599 


















1600 


010166 


013737 


001206 


001236 


SETWBl t 


MOV 


HC0P12,MXWBF 


»CALCULATE F'AX SIZE OF WRITE BUFFEP 


1601 


010174 


10573? 


001260 






TSTB 


CHN 


»IN CHAIN MODE 7 


1602 


010200 


100103 








BPl 


IS 


jVO, DOW'T ADD AMy ^-ORE KPITE BUFFER 


1603 


010202 


06273? 


000040 


001236 




ADD 


i40,MXWBF 


»YES, ADD IK TO MAX, WRITE BUFFER SIZE 


1604 


1 02 1 


16 373? 


001216 


00123s 


l$l 


SUB 


WPLTI2,WXXBF 




1605 


010216 


00633? 


001236 






ASL 


MXWBF 




1606 


010222 


00633? 


001236 






ASL 


MXWBF 




1607 


010226 


00633? 


001236 






ASL 


MXWBF 




160B 


010232 


006337 


001236 






ASL 


MXWRF 




1609 


010236 


00633? 


001236 






ASL 


KXWBF 


















• * 1 




isii 


010244 


012737 


177777 


001236 




MOV 


#17????, MXWBF 




1612 


010252 


010207 








RTS 


PC 
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1613 








1614 








1615 


01 0354 


105337 


001011 


1616 


010360 


1 05037 


015450 


1617 


010364 


004737 


010374 


1618 


01 0370 


000137 


007364 


1619 








1630 


01 0374 


013703 


016336 


1631 


010300 


013201 




1633 




001446 




1633 


010304 


032761 


040000 


1634 








1635 


010314 


1 05737 


00101 1 


1636 


01 0330 


001767 




1637 


01 0333 


004537 


01 1206 


1638 


010336 


015415 




1639 


010330 


010146 




1630 


010333 


004537 


01 1512 


1631 


010336 


015426 




1632 


10340 


016146 


000020 


1633 




004537 


011513 


1634 


010350 


015442 




1635 


010353 


016146 


000036 


1636 


010356 


004537 


01 1744 


1637 


010362 


015461 




1636 




0161 46 


000030 


1639 


010370 


004537 


011744 


1640 


(110374 


015500 




1641 


010376 


105737 


001011 


1643 


010402 


001003 




1643 


010404 


112737 


000040 


1644 


010412 


104406 


015414 


1645 


010416 


000730 




1646 


010420 


000207 





|MAP ROUTINE. TYPES RESIDENT MODULES AND THEIR ^TART ADDRESS, 
MAPI 



DIRAl 
1*1 



000030 



015450 



INCB 


DIRIND 




iSET DIR INDICATOR, 


CLRB 


MDIRE 




»TERMINATE ASCII STRING EARLY 


JSR 


PC.DIRA 




iTVPE MAP, 


JMP 


COMCON 






MOV 


*M0D0tR2 




iGET MODULE TABLE ADDR 


MOV 


(2)+»RI 




sGET MODULE ADDR 


BED 


5* 




■ no TT A &T T mills' 


BIT 


»BIT14,STAT(BH 


(MODULE SELECTED? 


BNE 


21 




• RB TIT VPK 


T5TB 


DiRiND 




(TYPING DIRECTORY? 


BEO 


It 




(BR IE NOT DONT TYPE UNSELECTED 


JSR 


P5,FIII.NH 




• PTTiL MOD NAHF TN &«rTT ATBTUr 


AMODNMf 1 




• KDnD TlS ftTltcr UKMP TH 


MOV 


R1,-CSP) 




(Module aodr to stack 


JSR 


RS.OACNV 




(CONVERT MOD ADDR TO ASCII 


APC 








MflV 


STATtRl),. 


■ csp) 


(CONVERT '"'ODULE STATUS 


JSR 


RS.OACNV 






AMDSTA 








MOV 


PSCNTtRl), 


-(SP) 


•MOD'S PASS COUNT TO STACK 


JSR 


R5.BDCNV 




(CONVERT IT TO DECIMAL ASCII 


APSCMT 








MOV 


ERCNT(Rl), 


-(SP) 


(MOD'S ERROR COUNT TO STACK. 


JSR 


R5,BDCNV 




(CONVERT IT TO DECIMAL ASCII. 


AERRS 








TSTB 


DIRIND 




(TYPING DIRECTORY? 


BKE 


31 




(BR IE YES. 


MOVB 


»40fM0IRE 




(NO. ALLOW TYPING FULL STRING. 


M5G$,AM0DNM 




(TYPE ASCII LINE. 


BR 


It 




(DO IT AGAIN. 


RTS 


PC 




(EXIT, 
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052761 
053761 
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1647 






1648 






1649 


010423 


012737 


1650 


010430 


012737 


1651 


010436 


000406 


1652 






1653 






1654 






1655 


010440 


012737 


1656 


010446 


012737 


1657 






1658 






1659 






1660 


010454 




1661 


010454 


004737 


1662 


010460 


000410 


1663 


010462 


000405 


1664 


010464 


013701 


1665 


010470 


042761 


1666 


010476 


000137 


1667 


010502 


012702 


1668 


010506 


012201 


1669 


010510 


001772 


1670 


010512 


042761 


1671 


010530 


000772 


1672 







042761 
042761 



001040 
040000 
007364 
016336 



010470 
010512 



010470 
010512 



(SELECT MODULE(S) ROUTINE, 
SELI 



MOV 
MOV 
BR 



«52761,SLDSB 
•52761, SLDSE 
SLOS 



(DESELECT HODULECS) ROUTINE, 



DESt 



MOV 
MOV 



•42761, SLDSB 
•42761 ,SLDSE 



(MODIFY COMMON TO SELECT MODULE(S), 
( 

(GO TO COMMON, 



•MODIFY COMMON TO DFSELECT MODULEtSJ, 



(SELECT/DESELECT COMMON, 
SLDSi 



SLDSAi 


JSR 


PC,GETNAH 


(CHECK NAME, GET MODULE ADDR. 




BR 


SLDSC 


(NO NAME. SELECT/DESELECT ALL 




BR 


SLDSL 


(INVALID OR NEX NSME. 




MOV 


MnDPTB,RJ 


(MODULE APDP TO Rl . 


SLDSBi 


BIC 


• HITU.STAKRl) 


(SELECT/DESELECT MOOULE. 


SLDSLi 


JMP 


COMCON 


(DONE. 


SLDSCi 


Hnv 


«MoDQ,R2 


(MODULE TABLE AT}DR TO R2. 


SLDSDi 


MOV 


C2)+.R1 


(GET MODULE ADDP. 




BEO 


SLDSL 


(BR IF n.END OF TSBT.E, DONE. 


StDSEl 


BIC 


•BIT14, STATtRl) 


(SELECT/DESELECT MODULE. 




BR 


SLDSD 


(DO IT AGAIfJ. 



(LOCATIONS SLDSB AND SLDSE ARE PURE WHILE IV RUN "png^ 
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1673 
IS74 
1675 
1676 
1677 
i67B 
1679 
1680 
1681 
1683 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 



0)0S22 
010523 

010522 000137 007374 



010536 10S037 001362 
010532 004737 013262 
010536 000137 007374 



010542 112737 000377 

010S50 013737 001266 

010556 104406 014700 

010562 000137 007374 



001262 
001264 



SEC 0219 



PON I 

pnrr; 

'kTOn'i 

KTorri JHP 



C0HC03 



jISNORE THE COMMAND 



J THIS ROUTINE ENABLES WRITE BUFFER POTATION 

ROTOm CLRB ROTL jCLEAR ROTATION LOCK FLAG 

JSR PC.POTCHK |G0 DO »ENABt.ED« MESSAGE 

JMP C0MC03 jCONTINUE 



I THIS ROUTINE DISABLES WRITE BUFFER ROTATION 



ROTOFF! MOVB IS77.ROTL 

MOV ROTNUM,ROTCNT 

MSG»,RDTDI5 

JMP C0MC03 



J SET THE aOTATlOW LOCK FLAG 
jLOAD THE ROTATION COUNTER 
j'MBUF ROTATION DISABLED" 
jCONTINUE 
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1691 iMODIFY ROUTINE. 

1692 jGETS ADDRESS AND PRINTS ADDR CONTENTS. 

1693 lUSER CAN INPUT NFW NUMBER OR CR. 

1694 »CP MEANS HF JUST WANTS TO EXAMINE, 
1695 



1696 


010566 


112737 


177777 


001272 FILL! 


MOVB 


t-l.FILLID 


•SET FTLL INDICATOR. 


1697 


010574 






MODI 








1698 


010574 


(104737 


011234 


5$l 


JSR 


PCOETNAM 


;GET NAME AND MODULE ADDR, 


1699 


010600 


000401 






BR 


4t 


|N0 NAME, 


1700 


010602 


000440 






BR 


38 


rlNVALIO OR NEX NAME, 


1701 


010604 


004737 


011022 


4tt 


JSR 


PC, GET ADR 


(GET ADDRESS, 


1702 


010610 


000430 






BR 


6$ 


■TNVALTD »DOB OR NO ADDR, 


1703 


01061? 


013704 


001042 




MOV 


ADDRL0,R4 


jMOVE ADDR TO R4. 


17ft4 


ota«t6 


063704 


001040 




ADD 


MOOPTRrR4 


.»1>t> wpWljir ADDR TO ARDR. 


1706 


010622 


01 0446 




til 


MOV 


R4,-tSP) 


jTYPE ADDR. 


1706 


010624 


004737 


01 1000 




JSR 


PCITOA 


! 


1707 


01O630 


011446 




7SI 


MOV 


(R4)»-(SP) 


»GBT CONTENTS OF ADDR, 


1708 


010632 


004737 


011000 




JSR 


PCITOA 


sPRINT IT OUT, 


1709 


010636 


004737 


007404 




JSR 


PCSINPUT 


sGET NEW CONTENTS, 


1710 


010642 


0,04737 


01 1070 




JSR 


PCGETNUM 


iCONVERT IMPUT TO BINARY, 


1711 


010646 


010416 






BR 


3S 


lINVALIO DATA (NOT A NUMBER! , 


1717 


O10650 


005737 


001062 




TST 


YES 


! NUMBER? 


1713 


010654 


001401 






BEO 


2S 


jBR IF WOT, 


1714 


010656 


nifll 14 






MOV 


R1,(R4) 


jSTORE NEW V»LUE, 


1715 


010660 


122702 


000012 


2«: 


CMPB 


#12, R2 


iLIME FEEO? 


1716 


010664 


OO10O7 






BNE' 


3S 


|N0, DONE. 


1717 


010666 


005724 






TST 


(R4) + 


1 POINT TO NEXT LOCATION, 


1718 


010670 


000754 






BP 


IS 


(REPEAT FOB NEXT LOC . 


1719 


010S72 


01 2704 


001254 


6$: 


MOV 


•FILCNT,R4 


iGET FILCNT ADDR. 


1720 


010676 


105737 


001272 




TST8 


FILLID 


tIN FILL HODET 


1721 


010702 


001 352 






B»iE 


7S 


»BR IF YES. 


1722 


01 0704 


0001 37 


007364 


3«! 


JMP 


COMCON 


I DONE, 
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SE" 6217 



1733 
1734 










iBIHAPY 


TO ASCII TYPE 


ROUTINE. 


TYPES NUMBER(S) 'OH STACK 


1725 


010710 


016646 


000002 




ITOAXI 


HOV 


2(SP) 


-(SP3 


iLOAD EA BITS 


1726 


010714 


016666 


000002 


000004 




MOV 


2(SP) 


4(SP) 




1727 


010722 


016666 


000006 


000003 




MOV 


6(SP) 


2(8P} 




1738 


010730 


004537 


01 1524 






JSR 


RS.OACNVX 




1739 




0155 15 








HOl.06 






|ANO PUT IT HERE 


1730 


010736 


104406 


015515 






MSGl, 


H01,D6 




(TYPE OUT THE VALUE 


1731 


010742 


000435 








BR 


ITbUT 






1732 




















1733 


010744 


016646 


000002 




ITOASI 


MOV 


2(SP} 


•CSP) 


lliOAD UPPER BITS 


1734 


010750 


016666 


000002 


000004 




MOV 


2(SP) 


4(SP) 


(AND LOriER BITS 


1735 


010756 


016666 


000006 


000002 




MOV 


6(SP) 


2(SP) 


JAND ADJUST THE STACK 
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DXOABM.PH 21 


-APR.77 


12t42 










1736 


010764 


004537 


011532 




JSR 


RS.OACMVS 


lCO«fVERT 9 OCTAL NUMBERS TO 


1737 


010770 


015536 






HOLDS 




J AN!) PUT THFM HfPF 


1738 


010772 


1 04406 


015526 




MSGS, 


HOLDe 


rTYPE OUT THE OCTAL VAL'IE 


1739 


010776 


000407 






BR 


ITOUT 


iGO TYPK IT OUT 


1740 
















1741 
















1742 


01 1000 


016646 


000002 


ITOAJ 


MOV 


2tSP),-CSPJ 




1743 


011004 


004537 


011512 




JSR 


RS.OACNV 


jCOnvert m'mp«;r to sscit. 


1744 


on 010 


015515 






H0LD6 






1745 


011012 


1 04406 


015515 




MSGS, 


H0I,D6 


;TYPE ncTAL VSLHE, 


1746 


01 1016 


013616 




ITOMTt 


MOV 


(SP)+,CSP) 




1747 


01 1020 


000207 






RT3 


PC 


jKXIT. 
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174B 








»THIS ROUTINE 


GETS THE ADDRESS 


ASSOCIATED WITH THE MOD COMMAND 


1749 
















1750 


i i o2z 


0o4757 


OiiOTu 


Ht.iHU>«J 


JSR 




)u£T "uMSER 


1751 


011026 


000414 






BP 


11 


J INVALID DATA RETURN. 


1752 


011030 


005737 


001062 




TST 


YES 


iNUMBER? 


1753 


Oil 034 


001411 






BEQ 


1$ 


I BR IF NOT, 


1754 


011036 


006201 






ASP 


Rl 


{GOOD ADDRESS? 


1755 


011040 


103410 






BCS 


ADRERR 


jNOGOOD, IT'S ODD 


1756 


011042 


060101 






ADD 


Pl.Rl 


jRESTORE THE ADR 


1757 


011044 


010137 


001042 




MOV 


Rl , ADDRIiO 


iSTORE AT ADDRLO 


1758 


011050 


010337 


001044 




MOV 


R3,ADDRHI 


J AND ANY HIGH ORDER BITS IN ADDPHI 


1759 


011054 


062716 


000002 




ADD 


»2, CSP) 


jSET UP GOOD EXIT, 


1760 


011060 


000207 




ISl 


RTS 


PC 


:DONE 


1761 
















1762 


011062 


104406 


014364 


ADRERRi 


HSSSr 


INVAOR 


.•TYPE INVALID ADDR OR DATA. 


1763 


011066 


000207 






RTS 


PC 


JEXIT. 
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1764 








iGET NUMBER FROM KEYBOARD 


BUFFER, AND RETURN THK L0'-« ORDER HITS 


1765 








|IN PI AND THE 


HIGH ORDER 


BITS TN R3. 


1766 








tROUTINE ADDS 2 


TO THE RETURN PC IF SUCCESSFUL. 


1767 














1769 


011070 


013700 


001036 


GETNUMl HOV 


KPPTRjRO 


jGET BUFFER POINTER. 


1769 


01 1074 


005001 




3«J CLR 


PI 


»DATA 


1770 


011076 


005003 




CI,R 


R3 




1771 


onioo 


005037 


001062 


CT..P 


YES 


tFLAG 


1772 


01 1 104 


112002 




ISl MOVB 


(RO)+f P2 


J GET A BYTE 


1773 


01 1 106 


120227 


fl0004n 


CMPB 


P2, 140 


(SPACE? 


1774 


011112 


001770 




BFQ 


3t 


•YES, IGNORE IT 


1775 


011114 


122702 


000015 


CMPB 


il!.P2 


!CP7 


1776 


ni 1 150 


np1425 




BEQ 


2$ 


SYCS, RETURN 


1777 


011122 


120227 


000012 


CMPB 


R2.tl2 


»LF7 


1778 


m 1 1 26 


on 1422 




BTO 


2« 


jDONE 


1779 


f11l30 


150227 


oooofin 


CMOS 


R2,»'0 


tLOW LTMTT 


1780 


01 1 1 34 


002752 




BtT 


ADRERR 


jTOO LOW, REPORT THF FRROR 


1781 


01 It 36 


120227 


000067 


CMPB 


R2,#'7 


jHIGH LIMIT 


1792 


011142 


003347 




BGT 


ADRERR 


»T00 HIGH, REPORT THE ERROR 


1783 


01U44 


006301 




ASL 


PI 


fSHIFT OLD STUFF 


1784 


01^146 


006103 




pnij 


P3 




1795 


on 150 


0^6301 




ASL 


Rl 


J 3 TIMES LEFT 


1786 


011152 


O06103 




POL 


R3 




1797 


011154 


006301 




ASL 


Rl 


jI.E. MULT. BY OCTAL 10 


1798 


011156 


006103 




POL 


R3 




1799 


01 1 160 


060201 




ADD 


R2,R1 


»ADD NEW TO OLD 


1790 


011162 


162701 


000060 


SUB 


t'O.Rl 


jBUT GET RID OF ASCII STUFF 


1791 


nil 166 


005237 


0P1062 


TNC 


YES 


?SET FLAG 


1792 


011172 


000744 




BP 


U 


IMOPE, MORE 


1793 


011174 


010037 


001036 


2$l HOV 


RO.KBPTR 


(SAVE CURRENT BUF POINTER. 


1794 


011200 


062716 


000002 


ADD 


•2, tSP) 


iSET UP OK EXIT, 


1795 


01 1204 


000207 




RTS 


PC 


»EXIT, 
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179S 










1797 










179S 


Oil 306 


010346 




1799 


011310 


012503 






1 ROO 


01 1313 


013704 


000005 


MOV 


ISOl 


011316 


113123 




Iti KOVB 


1802 


011230 


005304 




DEC 


1>03 


011333 


001375 




BNE 


tS04 


011334 


163701 


000005 


SUB 


1805 


011330 


013603 




MOV 


180S 


011333 


000305 




RTS 



PUTS THE MODULE H»HE INTO »N ASCII, STRING rOB OUTPUT 



R3(-(SP) (SAVE R3. 

(R5)*fR3 (STORE ADDR TO R3. 

*5.R4 iMILL DO S TIMES. 

CRl)+»(R3)+ iHOVE CHAR, 

R4 jDONE? 

II >BR IF HOT. 

(5,R1 iRESTORE Rl, 

(8P)'f«R3 tRESTORR R3. 

R5 (EXIT. 
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1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1830 
1831 
1822 
1823 
1834 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 

lasi 

1852 
1853 
1854 
1155 
1856 
1857 
1858 
}8S9 
1860 
1861 
1863 









(THIS 


POUTINE 


GETS THE MODULE 


NAME ASSOCIATED WITH THE MOD AND SEL/DES CO" 


011334 


013700 


001036 


SETNAMi MOV 


KBPTR.RO 




(GET PUFFER POINTER. 


011240 


005037 


001062 




CLP 


YKS 




(CLEAR SUCCESS INDICATOR. 


011244 


005037 


001040 




CLR 


MODPTP 




(IF 0, ABS ADDR, 


011250 


012702 


000005 




MOV 


t5,R3 




(WILL 00 5 TIMES, 


011254 


012701 


015415 




MOV 


*AmODNM+1 


RI 


(MILL STORE KYBD name m TMPNJM, 


011260 


112721 


000040 


111 


MOVB 


»40. CR1)+ 




(BUT CLEAR IT TO SPACES FIRST, 


011364 


005302 






DEC 


R2 




(DOME? 


011266 


001374 






BNE 


11 




(BR IF NOT, 


011270 


012701 


015415 




MOV 


*AmODNH+i 


Rl 


(RELOAD TEMP ADDR, 


011274 


111002 




311 


MOVB 


(P03.R2 




(GET CHAR FROM KBUF AREA, 


011276 


122702 


000015 




CHPB 


»15#R2 




(CR? 


OM302 


001442 






BEO 


61 




(BR IF YES. 


011304 


123702 


000012 




CMP6 


«12>R2 




(LF? TREAT AS CR. 


011310 


001437 






BEQ 


6t 




(BR IF YES. 


011312 


122702 


000040 




CMPB 


*40rR3 




(SPACE? DISREGARD LEADING ONES. 


011316 


001430 






BEQ 


St 




(BR IF YES. 


011320 


120227 


000101 




CMPB 


R2,I'A 




(A OR HIGHER? 


011324 


002403 






BLT 


31 




[BR IF LESS. (COULD BE A NUMBER). 


011326 


120227 


000132 




CMPB 


R2,»'Z 




(Z OP LESS? 


011332 


003411 






BLE 


41 




(BR IF Z OR LESS. 


011334 


120227 


000060 


311 


CMPB 


R2,t'0 




(0 OR HIGHER? 


011340 


002427 






BLT 


71 




(BR IF LESS. YOU LOOSEI 


011342 


120327 


000071 




CMPB 


R2,»'9 




(9 OR LESS? 


011346 


003024 






BGT 


71 




(BR IF GREATER. YOU LOOSEI. 


011350 


005737 


001062 




TST 


YES 




(ANY PREVIOUS CHARS? 


011354 


001426 






BEO 


81 




(BP IF NOT, NOT LEADING NUMERICS ALLOWED!. 


011356 


023737 


001062 000005 


4li 


CMP 


yES.»5 




(6TH CHJRACTER? 


011364 


002015 






BGE 


71 




(IF YES, BRANCH 


011366 


110221 






MOVB 


R2,(R1}+ 




(STORE CHAR, 


011370 


005237 


001062 




INC 


YES 






011374 


005200 




41lt 


INC 


RO 




(POINT TO NEXT CHAR. 


011376 


000736 






BR 


21 




(DO IT AGAINI 


011400 


005737 


001062 


5*1 


TST 


YES 




(ANY CHARS? 



911404 
011406 

011410 
911414 
011416 
911420 
011424 
011430 



011432 
911436 
011442 
011444 
011450 
911452 
011454 



001773 
000416 

005737 
001013 
000405 
104406 
062716 
000207 



005037 
010037 
000307 
012702 
013203 
001763 
013701 



014403 
000003 



001063 
001036 



016236 
015415 



611 
7ti 



911 

lOlt 



BEO 
BR 

TST 
BNE 
BR 



411 
91 

YES 

91 

81 



MSGIiINVNAN 



ADD 
RTS 



CLR 
MOV 
RTS 
MOV 
NOV 
BEO 
MOV 



*2,(SP) 
PC 



YES 

RO.KBPTR 
PC 

IM0Da,R2 
(R2)«f R3 
71 

IAM00KM+1,R1 



(BR IF NOT. 



(ANY CHARS? 
(BR IF YES. 
(NO NAME. 

(TYPE INVALID OR NEX (NON-EXISTENT) «ESSAGE. 

(SET UP INVALID NAME EXIT. 

(EXIT. 



(SAVE CURRENT BUF POINTER. 
(EXIT. 

(MODULE TABLE ADDR' TO R2. 

(GET MODULE ADDR. 
(INVALID NAME, NO MODULEJI 
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i963 


P H 460 


012704 


000005 
















i X 5 I C'iPB 




JCHAR WATCM7 


186S 


011466 


001370 




BNE 


lot 


iBR IF NOT, 


186S 


011470 


005304 




DEC 


B4 


iDONE? 


<8fi7 


01 1472 


001374 




BNE 


lis 


SBR ir MOT. 


1868 


01 1474 


014237 


001040 


MOV 


-CR23.MODPTR 


(MODULE ADDR TO MODPTP. 


1869 


01 1500 


010037 


001036 


MOV 


RO,KBPTB 


ISAVE CURRENT BUF POINTER. 


1870 


61 1$04 


062716 


000004 


ADD 


*4, CSP; 


fSET UP SUCCESS EXIT, 


1871 


611510 


000207 




PTS 


PC 


SEXIT. 
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SEQ 0224 



1972 










lOCTAl 


TO ASCII 


CONVERT ROUTINE. 


1873 










iCONVERTS ARGUMENT ON STACK 


TO ASCII, STORES STRING STARTING AT ADDRESS 


1974 










jGIVEN 


FOLLOWING THE CALL 




1875 










jEXTENDEO ENTRY 


REQUIRES ADDITIONAL ARGUMENT ON STACK- AFTER 


1876 










> PUSHING LOWER 


16 BITS ONTO 


STACK, PUSH EA BITS {SHIFTED TO POS 4,5) 


1877 


















1878 


011512 


005037 


001112 




OACNVj 


CLP 


OASCEA 


iCLEAP OUT UPPER BITS " NOT USED 


1879 


OII5I6 


105037 


001310 






CLRB 


ATE 


JCLFAP 8 CHARACTER FLAG 


1880 


01 1522 


000412 








BR 


CONVRT 


SCONTTN'IE 


1881 


















1882 


011524 


1 05037 


001310 




OACNVXj 


CLRB 


ATE 


jCLEAR 9 CHARACTER FLAG 


19B3 


011530 


000403 








BP 


HOP 


! CONTINUE 


1884 


















itm 




!T7"»37 


000200 


"? 1 1 


OACVB? 




• ffT'^"7» ATE 


fSET B eHSRACTEB FLiG 


1996 


















1887 


01 1540 


016637 


000002 


001112 


HOPi 


MDV 


2(SP)»PASCEA 




1888 


01 1546 


012516 








MOV 


t5p)+, (SP) 




1889 


011550 


004437 


nl2244 




CONVRTl 


JSP 


R4,SAV04 


SSAVE REGS 0-4. 


1990 


0115«i4 


P 16600 


000014 






MOV 


12.(SP),R0 


|GET OCTAL VALUE. 


1891 


01 1 560 


01 3501 








uny 


rpm + .Ri 


•GET DEST ADDP, 


1992 


0) 1562 


012702 


000006 






MOV 


»6.R2 


J SET CONVERT COUNT TO 6. 


1893 


01 1566 


060201 








ADD 


R2,P1 


J DEVELOP ADDR TO STORE J ST CHAR, 


1894 


0] 1570 


105737 


001310 






TSTB 


ATE 


>SET UP TO DO 8 CHARACTERS 7 


1895 


011574 


100002 








BPL 


3t 


(NO, CONTINUE 


1896 


011576 


062701 


000002 






ADO 


»2,R1 


(YES, ADD 2 TO THE SDDPESS 


1897 


011602 


010003 






381 


MOV 


R0,R3 


(GET VALUE TO R3. 


1998 


011S04 


042703 


177770 






PTC 


»17777C,P3 


(ISOLATE LEAST SIGNIFICANT DIGIT, 


1899 


011610 


062703 


000060 






ADO 


*60>R3 


(CONVERT TO ASCII, 


1900 


011614 


110341 








Move 


R3,-(R1) 


(STORE IT. 


1901 


011616 


042700 


000007 






BIC 


• 7.R0 


(CLEAR DIGIT JUST COHVEBTED. 


1902 


011622 


006000 








ROP 


BO 


(SHIFT IN NEXT DIGIT. 


1903 


0! 1624 


006000 








ROB 


RO 




1904 


01 1626 


006000 








ROP 


RO 




1905 


011630 


005302 








DEC 


R2 


(DONE 6 DIGITS? 


1906 


011632 


001363 








BNE 


3t 


(BR IF NOT. 


1907 


011634 


105737 


001310 






TSTB 


ATE 


(SET UP TO DO 8 CHARACTERS T 


1908 


011640 


100410 








BMI 


4t 


(YES, DO IT 


1909 


011642 


013702 


001112 






MOV 


OASCEA, P2 




1910 


011646 


006202 








ASP 


R2 




1911 


011650 


006202 








A8R 


R2 




1912 


01 1652 


006202 








ASP 


R2 




1913 


011654 


060203 








ADD 


R2.R3 




1914 


011656 


110311 








MOVB 


R3,tBn 




1915 


01 1660 


000425 








BR 


51 


(GO FINISH UP 


1916 


















1917 


011662 


132737 


000001 


001310 


411 


BITB 


»BIT0,ATE 


(ALL DONE T 


1918 


011670 


001021 








BNE 


SS 


(YES, GET OUT 


1919 


01 1672 


013700 


001112 






MOV 


OASCEA, RO 


(NO, LOAD UPPER NUMBERS TO BE CONVERTED 


1920 


011676 


006300 








ASL 


RO 


(LINE UP BITS BELONGING TO LOWER NUMBER 


1921 


011700 


042700 


177770 






BIC 


#177770, RO 


fCIT RID OF ALL OTHERS 


1922 


01 1704 


060003 








ADO 


R0,P3 


(ADD II IN TO COMPLETE THE NUMBER 


1923 


01 1706 


110311 








MOVB 


R3,(Bn 


(STORE II 


1924 


011710 


013700 


001112 






MOV 


OASCEA, RO 


(LOAD UPPER BITS AGAIN 


1925 


011714 


006200 








ASR 


RO 


(GIT RID OF THE 2 BITS 


1926 


011716 


006200 








ASP 


RO 


(JUST TAKEN CARE OF 


1927 


011720 


012702 


000002 






MOV 


12, B2 


(SET UP TO DO THE LAST 2 CHARACTERS 
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SEQ o3as 



1929 011724 182737 000001 001310 

1929 011732 000723 

1930 

1931 011734 004737 012256 

1932 011740 019616 

1933 011742 00020S 



BISB 
BR 

JSR 
HOV 
BTS 



»BITO,ATE 
31 

PC,BST04 

CSP)+,t«P) 

R5 



I5ET 'ALL DOKE' TLAG 

)G0 DO THE LAST 2 CHARACTERS 



tPESTORE RESS, THRU 4 



jRETURN 
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1934 jBINAPV TO PECIMAL ASCII CONVERT ROUTINF. 

1935 iCONVERTS ARGUMF:NT ON STACK TO DECIMAL ASCII, STORES IT 

1936 iSTAPTIHG AT ADDRESS GIVEN AFTER THE CALL. 

1937 I REMOVES ARGUMENT EPOM STACK BEFORE RFTI'PNING 
1936 



1939 


011744 


004437 


012244 BDCNVj 


JSR 


R4,SAV04 


JSAVE RFGS 0.4. 


1940 


011750 


016601 


000014 


MOV 


12.(SP),P1 


jGET BIN VALUE. 


1941 


01 1754 


012700 


016230 


MOV 


IDECVAL.PO 


fGET ADDP OF DECVAL STPING. 


1942 


011760 


012702 


012044 


MOV 


tTENPiplR,R2 


SADDR OF TFNPWR TO R2, 


1943 


011764 


012703 


000005 


MOV 


»5,P3 


;SET UP TO DO 5 CON VERSIONS . 


1944 


011770 


005004 


ISl 


CI.P 


R< 


J CLEAR RESUr.T, 


1945 


01 J772 


161201 


281 


SUB 


(P2),R1 


rSUPTRACT TEN POKRR, 
rBR IF UNSUCCESSFUL. 


1946 


011774 


103402 




ecs 


3S 


1947 


011776 


005204 






R4 


(ADD 1 TO RESULT. 


194R 


012000 


000774 




BP 


2» 


IDO IT AGAIN, 


1949 


012002 


062201 


3St 


ADO 


(B2)+.R1 


jP.ESTORF SUBTRACTFD VALUE, 


1950 


012004 


062704 


000060 


ADD 


»60>R4 


rMAKE IT ASCII, 


1951 


OJ2010 


110420 




MOVP 


R4, (R0)+ 


(SAVE IT. 


1952 


012012 


005303 




DEC 


P3 


(DONE 57 


1953 


012014 


001365 




ENF 


IS 


:PR IF WOT. 


1954 


012016 


012501 




MOV 


CR5)+,Rt 


(GET FINAL STORE «DOR. 


1955 


012020 


012702 


000005 


WOV 


«5,R2 


(RET DIGIT COUNT DESIRED. 


1956 


013024 


060201 




ADD 


R2,P1 


(COMPUTF ADDR OF 1ST DIGIT, 


1957 


012036 


114041 


4Si 


MOVB 


.(PO),.(RJ ) 


(TRANSFER CHAP, 


1958 


012030 


005302 




DEC 


R2 


(DONE? 


1959 


012032 


001375 




BNG 


4t 


(BR IF NOT, 


i960 


012034 


004737 


012256 


JSP 


PC,RST04 


(RESTOPF; PEGS 0.4. 


1961 


012040 


012616 




MOV 


(SP)+,(SP) 




1962 


012042 


000205 




RTS 


R5 


(EXIT. 


1963 


012044 


023420 


001750 000144 TENPWPi 


10000.1 


rlOOO.rlOO.,10, 


,1 


1964 


012052 


000012 


000001 
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5EQ 0327 



1965 








i RETURN TO KERNEL MODE 




196S 














i5e" 


012036 


042766 


iTDQoo 000002 


FTTK.I BIC 


ll7000ei2tSP) 




1968 


012064 


000002 




RTI 






1969 








» 






1970 














1971 








i ROUTINE TO 


CALC NEXT RANDOM NUMBER, USES A 29 BIT SHIFT REGISTER 


1972 








t ALGORITHM, 


EXCLUSIVELY OR-ING 


THE 28TH AND ISTCLOW ORDER) BITS 


S 9? 3 








t INTO THE 29TH SIT AS IT SHIFTS 


'. RIGHT, SHIFTS 16 TIMES EACH TIME 


1 974 








1 ITS CALLED. 


MODULES DO A RAND 


1 CALL THEN JUST REFERENCE RANNUM 


1975 








1 WHICH IS DEFINED AS GLOBAL IN 


ODXCOM 


1976 








1 






1977 


01 2066 


004437 


013244 


RAND.i JSP 


R4,SAV04 


jSAVE THE REGISTERS 


1979 


1 2072 


1 37 00 


001 163 


MOV 


RANWRK, RO 


jGET UPPER BITS 


1979 


01 2076 


013701 


001 160 


MOV 


RANNUMjRl 


jGET LOWER ORDER 16 BITS 


1980 


012102 


012702 


000020 


MOV 


»16,«R2 


jSHIFT 16 TIMES 


1981 


012106 


006000 




RLOOPj ROB 


RO 


(SHIFT RO INTO CARRY 


1982 


012110 


006001 




ROR 


Rl 


f SHIFT CARRY INTO Rl, Rl INTO CARRY 


1983 


012112 


103410 




BCS 


It 


jFIRST HALF OF EX-OR PROCESS 


1984 














1985 


012114 


042700 


010000 


BTC 


1)0000, RO 


rASSUME OLD BIT 28 WAS ALSO CLEAR 


1986 


012120 


032700 


002000 


BIT 


«2000,R0 


jCHECK THAT ASSUMPTION 


1987 


012124 


001412 




BEQ 


2t 


»BR IF RIGHT, ELSE 


1988 


012126 


052700 


01 0000 


BIS 


iioooOiPe 


jPUT BIT IN 






" " ' ' * - ' 










1990 


- 












1991 


012134 


052700 


01 0000 


IS! BIS 


tlOOOOjRO 


S ASSUME OLD BIT 28 WASN'T ALSO SET 


1992 


012140 


032700 


002000 


BIT 


•2000, RO 


jCHECK THAT ASSUMPTION 


1993 


1 * 1 * * 


u 1 "f u « 




BEQ 


2« 


JBP IF RIGHT 


1994 


012146 


042700 


010000 


BIC 


»10000,R0 


jELSE 2 I'S « A ZERO BIT 


1995 














1996 


012152 


005302 




2«1 DEC 


R2 


(DONE If, TIMES? 


1997 


012154 


001354 




BNE 


PLOOP 


•BP IF NO 


1998 


012156 


010037 


001162 


MOV 


RO, RANWRK 


•SAVE CURRENT VSLUES 


1999 


012162 


010137 


001160 


MOV 


Rl.RAWNUM 




2000 


(112166 


004737 


012256 


JSR 


PC,PST04 


•RESTORE REG'S 


2001 


012172 


000002 




RTI 




•RETURN FROM TRAP CALL 
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2002 






20O3 






2004 






2005 






2006 






2007 






2008 


012174 


010046 


20O9 


012176 


012500 


2010 


012200 


012046 


201 1 


012202 


006216 


2012 


012204 


006216 


2013 


012206 


006216 


2014 


0122)0 


0n6216 


2015 


013212 


006216 


201 S 


01221 « 


00(5216 


2017 


012216 


'^42716 


2018 


012222 


011660 


2019 


012326 


012016 


20?0 


012230 


000316 


2021 


012232 


006216 


2022 




0063! 6 


2023 


012236 


05261*0 


2024 


012240 


O12600 


2025 


012242 


000205 


202* 
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ISUBPOUTINE TO GET PAGE ADDRESS FIELD VALi'E (TOP 12 BITS OF ADDRESS) 
(CALL VIAl 

I JSR R5,T0P12S 

I ADDRESS OF TABLE CONTAINING LOWER 16 BITS, TOP 2 BITS (SHIFTFO), 

I ANO SLOT FOR RETURNED VALUE OF ADDRESS 



SEG 5228 



176000 
000002 



T0P12SI MOV 


RO,-(SP) 


jSAVE THE OLD VALUE OF RO 


MOV 


(P5)+,R0 


•GET THE ADDRESS OF THE TABLE-PUT IT IN RO 


MOV 


(RO)+.-CSP) 


jFETCH THP ADDRESS TO BE ACTED ON TO THE STiC^ 


ASP 


rsp) 


;ELTMINATS THE SIX LOW ORDER BITS. THIS ONE DROPS BTTO 


ASR 


(SP) 


(THIS ROTATION DROPS BITl 


ASR 


(SP) 


(THIS ROTATION DROPS BIT2 


ASR 


CSP) 


(THIS POTATION DROPS BIT3 


ASR 


(SP) 


jTHTS ROTATION DROPS BIT 4 


ASR 


CSP) 


(AND THIS ROTATION DROPS BITS 


eic 


lineoco, (SF) 


(ISOLATE iff; 12 HIGH ORDER BITS IN IHS LOWER 


MOV 


CSP),2(P0) 


(SAVE THE 12 HIGH ORDER BITS IN THE TABLE'S 3RD ENTBY 


MOV 


{RO)+,(SP) 


(FETCH THE EXTENDED ADDRESS BITS FROM THE 2ND ENTRY 


SWAR 


(SP) 


[MOVE THE BITS TO BIT POSITIONS 6+7, FIRST, TO 8 + 9, 


ASR 


(SP) 


(THEN MOVE THEM TO 7 + 8 






•riVSLL" ROTATE THEV TO 6 t 7 


BIS 


(SP)+, (RO) 


(ADD THE EXTENDED ADDRESS BITS TO THE 3RD ENTRY 


MOV 


(SP)+,RO 


(RESTORE THE OLD VALUE OF RO 


RTS 


R5 


(RETURN TO THE CALLING PROCEDURE 
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8E0 0239 



2027 






tSkVG PEGS 0*4 


SUBROUTINE, 


(CALL VIA JSR R4iSAVQ4) 


202B 












2029 


012344 


010346 


SAV04t MOV 


R3.>(SP} 


(SAVE R3 


2030 


013346 


010246 


MOV 


Ra,-tsp) 


(SAVE R2 


2031 


012250 


010146 


MOV 


R1,-(SP) 


{SAVE Rl 


2032 


013252 


010046 


MOV 


RO.-(SP) 


(SAVE RO 


2033 


013354 


010407 


NOV 


R4,PC 


»R4 IS ALREADY SAVED 


2034 












2035 






1 RESTORE REGS 


0>4 SUBROUTINE. (CALL VIA JSP PCiPST04} 


2036 












2037 


013356 


012604 


RST04I MOV 


(SP)'t'>R4 


1 RETURN ADDRESS 


2036 


013360 


012600 


MOV 


(SPHrRO 


{RESTORE RO 


2039 


013262 


013601 


MOV 


(SP)+,R1 


»R1 


2040 


012264 


013603 


MOV 


tSP)+iP3 


fR3 


3041 


012366 


013603 


MOV 


(SP)t,R3 




2042 


012370 


000304 


PTS 


R4 


{RESTORE R4 AMD RBTURN 
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3043 {CLEAR VARIABLES AND OUEIICS. AND LOAD TRAP CATCHER STARTING AT 70 

2044 



3045 


ftl2372 


013700 


001006 




CLR0U5( 


HOV 


*IOQUE,RO 


{CLEAR VARIABLES. 


3046 


013376 


012701 


000140 






MOV 


#TICS-I0QUE,R1 




2047 


013303 


105030 






1*1 


CLRB 


(R0) + 




204B 


013304 


005301 








DEC 


Rl 




2049 


012306 


001375 








BNE 


11 




3050 


013310 


012700 


016606 






MOV 


»IOO,R0 


{INITIALIZE QUEUE POIHTEPS 


3051 


013314 


010037 


001074 






MOV 


R0,I0Q1 




2052 


013330 


010037 


001076 






MOV 


R0,IOQ3 




3053 


012334 


013737 


017116 


001100 




MOV 


«TYPEQ,TYPQ1 




3054 


013333 


013737 


017116 


001102 




HOV 


»TYPEQ,TYPQ? 




3055 


012340 


012701 


000764 






HOV 


»I0QL+TYP0L,R1 


{SET UP TO CLEAR QUEUES. 


3056 


012344 


105030 






2tl 


CLRB 


CRO)* 




3057 


012346 


005301 








DEC 


Rl 


(DONE? 


30SB 


012350 


001375 








BNG 


2S 


{BR IF WOT. 


2059 


012352 


000207 








RT5 


PC 
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20fi0 






iofti 






2062 


012354 


012700 


20S3 


012360 


012701 


9064 


01 2364 


01 002 1 


206S 


012366 


005021 


20S6 


012370 


010100 


2067 


012372 


005720 


J068 


012374 


020027 


2069 


012400 


001371 


2070 


012402 


000207 


2071 






2072 












2074 


01240 4 


u J uu *0 


2075 


012406 


016600 


2076 


012412 


01 4000 


2077 


012414 


006300 


2078 


012416 


062700 


2079 


01 2422 


020027 


2060 


013426 


10300S 


2081 


012430 


01 1000 


2082 


012432 


000200 


5C'"3 


2e?4 


' 


2084 


01 2440 


104406 


2CSS 


012444 


OOOOOO 


2086 




01 1000 


2087 




OOOOOO 


2088 


012446 




2089 


012446 




2090 


012446 


00?030 


2091 


012450 




2092 


01 2450 


005 470 


2093 


01 2452 




2094 


01 2452 


005 324 


2095 


01 2454 




2096 


01 2454 




2097 


012456 




2098 


01 2456 


005250 


2099 


012460 




21 00 


01 2460 


OU? <3 u 


2i0i 


01 2462 




21 02 


01 2462 


005 336 


2103 


01 2464 




2104 


012464 


005460 


21 05 


01 2466 








005250 


2107 


012470 




210S 


012470 


005324 


2109 


012472 




2110 


012472 


013646 


21U 


012474 




2112 


012474 


013770 


2113 


(112*76 




2114 


01J476 


006626 


2115 


012500 





(LOAD TSAPCATCHER IV VECTOR AREA 



CLRVECl HOV 
MOV 

It I MOV 
CLR 
MOV 
TST 
CMP 
BME 
STS 



•72. RO 
»70,Rl 

RO9 (Rl)+ 

(Pl) + 

Rl.RO 

(Pe) + 

P0,tl002 

it 

PC 



tFlLL VECTOR AREA WITH ,+2 
J AND HALT. 



iriLLED IIP? 
jBR ir NOT, 
>yES. EXIT. 



iTRAP IMTERPRETER ROUTINE. 



001446 
012516 



TRPINTi 


MOV 


PO,-CSP) 


fPUSH RO. 








MOV 


2(SP)>R0 


J GET 


TRAP 


PC, 






MOV 


-tRO),RO 


iGET 


TRAP 


CALL, 






ASli 


RO 


jMULTIPliY BY 


2, 








ADO 


tTRPTAB-TPP2»R0 


(FORM TABLE ADDRESS 






CMP 


RO.ITRPLIH 


iWITHIN LIMITS? 








8HTS 


IC 


jBR IF NOT, 










MOV 


»RO>RO 


(GET ROUTINE 


ADDRESS 




S « S 


RTS 


RO 


iGD TO ROUTINE, RESTORE RO, 


: - . 


HSgJIhLT I 'HALT' 












HALT 














TPPJ«11000 












TRAPXbO 












TRPTABi 
















TPPDEF 


EXITS, EXIT, 












EXIT, 




(POINTER FOR 


TRAP 


CALL 


EXITS 




TPPOEF 


SUES* QUE, 












QUE. 




I POINTER FOR 


TRAP 


CALL 


CUES 




TPPDEF 


ENPPS8.TYPQ, 












TlfPO, 




jPOINTEP FOR 


TRAP 


CALL 


FNDPSS 




TBPDEF 


ENDS, TYPO, 












TYPQ. 




jPOINTER FOR 


TRAP 


CALL 


ENDS 




TPPDEF 


ERRORS, TYPQ2. 












TypQ2, 




(POINTER FOR 


TRAP 


CALL 


ERRORS 




TRPDEF 


DATERS,TYPQ2, 












TYP02. 




(POINTER FOR 


TRAP 


CALL 


DATERS 




Tppoer 


MSGS, TYPQl , 












TYPQl. 




jPOINTER FOP 


TRAP 


CALL 


MSGS 




TRPDEF 


BREAKS, LDBRK, 












LD8RK, 




[POINTER FOP 


TRAP 


CALL 


BREAKS 




TRPDEF 


ERRNS,TYP02. 












TYP02, 




{POINTER FOP 


TRAP 


CALL 


ERRNS 




TRPDEF 


MSGNS,TYPQ, 












TYPO, 




sPOINTF-P FOR 


TRAP 


CALL 


MSGNJ 




TRPDEF 


GWBUFS,GWBUF. 












GWPUF, 




(POINTER FOR 


TRAP 


CALL 


GWBUFS 




TRPDEF 


GETPAS, GETPA, 












GETPA, 




(POINTER FOR 


TRAP 


CALL 


GETPAS 




TRPDEF 


CDATAS.CDST*. 












CDATA. 




jPOINTER FOP 


TRAP 


CALL 


CDATAS 




TPPDEF 


MAP?2S,MAP2J, 
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2116 


012500 


014012 


MAP22. 




(POINTER 


FOR 


TRAP 


CALL 


MAP22S 


2117 


012502 




TRPDEF 


MSGS$,TYPO. 












2118 


012502 


005324 


TYPQ. 




(POINTER 


FOR 


TRAP 


CALL 


MSGSS 


2119 


012504 




TRPDEF 


DATCKS, DATCK, 












2120 


012504 


006616 


DATCK. 




(POINTER 


FOP 


TRAP 


CALL 


DATCKS 


2121 


012506 




TRPDEF 


RANDS, RAND. 












2122 


012506 


012066 


RAND. 




jPOINTER 


FOR 


TRAP 


CALL 


RANDS 


2123 


012510 




TRPDEF 


DERRX8, TYPOS, 












2174 


012510 


005150 


TYPOS , 




(POINTER 


FOR 


TRAP 


CALL 


DEPRXS 


2125 


012512 




TRPDEF 


MSGDS,TYP04, 












2126 


012512 


005102 


TYP04, 




(POINTER 


FOR 


TRAP 


CALL 


MSGDS 


2127 


01251 < 




TRPDEF 


PTTKS,RTTK . 












2128 


012514 


012056 


RTTK. 




(POINTER 


FOP 


TRAP 


CALL 


PTTKS 








-PPLI"! 
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3130 
2131 
3132 
3133 
2134 
2135 
2136 
3137 
3138 
3139 
2140 
2141 
2142 
3143 
3144 
314S 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
2153 
2154 
3155 
2156 
2157 
2158 
2159 
3160 



iBUS ERROR AND PESERVED INSTRUCTIOM TRAP ROUTINES 

iCHECK MODE BITS Or PSW OK STACK (MAYBE USER IE KTIJ IN USE) 

lOROEB or ARGUMENTS! VIRTUAL PC ON STACK, PSW ON STACK, STACK POINTER 

lAFTEP TRAP, VIRTUAL ADDRESS TRAPPED TO 



012516 


013746 


000004 


BUSERRi 


MOV 


*4,-CSP} 


(INDICATE BUS ERROR TRAP. 


012523 


000403 




RESINTi 


BR 


RESIA 




013534 


013746 


000010 


MOV 


f 10,*(SP] 


(INDICATE RESERVED INSTRUCTION TRAP, 


012530 


000340 




RESIAi 


NOP 






013533 


010605 






MOV 


8P,R5 


(SAVE THE STACK POINTER, 


013534 


013706 


016606 




MOV 


ISPSPECfSP 


jPUT INFORMATION INTO SPECIAL MONITOR STACK 


013540 


013546 






MOV 


(R5}+»«CSP) 


JPUSH TRAP VECTOR ON STACK 


012542 


010546 






MOV 


R5,«(SP) 


(PUSH STACK POINTER ON STACK 


013544 


016546 


000002 




MOV 


3CPS),>(8P} 


jPUSH THE PSW QH STACK 


012550 


011546 






MOV 


(RS) ,>(SP) 


(PUSH THE PC ON STACK 


012553 


013706 


016546 




MOV 


•8PB0T,SP 


IRESTOPF MONITOR STACK POINTER 


013556 


004737 


006330 




JSR 


PCCTRLX 


(CLEAR QUEUES, CLEAN UP, MAP TO BANKS 


012563 


105337 


001244 




INCB 


SYSCNT 


(COUNT A SYSTEM ERROR 


013566 


013706 


016576 




MOV 


tSPSPCC-10#SP 


(SETUP SPECIAL STACK POINTER 


013572 


005037 


001060 




CLR 


lOBKID 


(ALLOW TYPING 


012576 


113737 


000001 


001013 


MOVB 


f 1 ,BRAKe 


(PREVENT MODULE STARTUP DURING MESSAGE 


012604 


104406 


014512 




MSGSi 


iSYSERR 


(TYPE SYS ERROR FAILURE. 


012610 


012705 


011000 




MOV 


IIIT0A,R5 




012614 


004715 






JSP 


PC,CB5) 


(TYPE ERR PC. 


013616 


004715 






JSR 


PC, (R5) 


(TYPE EPR PSW. 


013630 


004715 






JSR 


PC, CBS) 


•TYPE SP AFTER ERROR 


013623 


004715 






JSR 


PC, fB5) 


(TYPE TRAP VECTOR ADDRESS 


013634 


012706 


016546 




MOV 


•SPPOTjSP 


(RESTORE MONITOR STACK POINTER 


013630 


104406 


014133 


3SI 


MSGSi 


.DOT 


(TYPE CRLF AND DOT 


012634 


000426 






BR 


PWRUA 


•ATTEMPT TO CONTINUE 
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seo 0334 



3161 










(POWER 


DOWN 


AND POWER IIP BOUTINFS. 


3162 


















3163 


012636 








PWRDN( 








3164 


012636 


012737 


012646 


000024 


lt( 


MOV 


«PWPUP,PWPFV 


(SET UP pn*EP UP VECTOR. 


3165 


013644 


000000 








HALT 




(POWER OOMN HALT 


3166 


Q12A46 


012737 


013636 


000024 


PWBUP( 


MOV 


»PWRDN,PWRFV 


(SET up POWfP DOWN VECTOR, 


3167 


013654 


012706 


016546 






MOV 


»SPB0T,P6 


(RESET STACK. 


3168 


012660 


005237 


001246 






INC 


pmpCNT 


(COUNT A POWER FAIL 


3169 


013664 


105037 


001274 






CLRP 


RUNPFL 


(CLEARPESUME RU*" FLAG 


3170 


013670 


004737 


006230 






JSP 


PC.CTRLX 


(CLEAR OUEUFS A«P IHTIALIZE 


2171 


013674 


005037 


001060 






CLP 


lOBKID 


(ALLOW TYPING 


2172 


012700 


113737 


000001 


001013 




MOVB 


#1 , BRAKE 


(PREVENT MODULE STARTUP 


3173 


012706 


1 04406 


014554 






MSGS 


, PWRFAI 


(TYPE POWER FAILURE MESSAGE, 


2174 


012712 








PWRUA( 








3175 


012712 


105737 


001257 




3S( 


TSTB 


RW-ODE 


(WERE WF l» RUN MODE? 


2176 


012716 


001021 








BNE 


LOGICA 


(8R IF YES TO RESTART. 


3177 


012730 


000400 








BR 


CHNOUT 


(NO, CONTINUE 
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2178 JBOUTINE TO EXIT TO CHAIN HONITOB, OP RETURN TO KYBD RTN, 

2179 {PROGRAM SHOULD ALHAYS BE IN SANK BY HERE 
2180 



2181 


013722 


105737 


001 280 


CHNOUTi 


TSTB 


CHN 


!IN CHAIN MODE? 


2182 


012726 


100402 






BMI 


J 1 


>BR IF YES, 


3183 


012730 


000137 


0Q73S4 




JMp 


eOMCON 


iBACK TO KYBD SEBVICE 


2184 


012734 


105737 


001252 


Itl 


TSTB 


KIPPCS 




218S 


O12740 


001402 






BEQ 


21 


iBHANCH ir NO KTll 


2136 


012742 


005037 


177572 




CtR 


PiSSPO 


sTUPN QWf K.Tll 


2197 


012746 


013700 


000042 


2>l 


MOV 


43, RO 




2188 


0127S2 


004710 




LOGIC! 


JSR 


PC, CR03 


jRETURN TO MONITOR, 


2189 


012754 


000240 


000240 


000240 


.WORD 


NOP, NOP, NOP 




3190 


012762 






LOSICAl 








3191 


012762 


105737 


001260 


5Sl 


TSTB 


CHN 




2192 


012766 


001402 






BEQ 


66 




3193 


012770 


000137 


001414 




JMP 


START 




2194 


01277* 


OO0137 


007476 


6ii 


JMp 


RUNRES 
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SEO 0216 



2195 










1 SUBROUTINE TO 


ROTATE WRITE BUFFERS IF POTI IMDICATOR "l. 


3196 
2197 


013000 


105737 


001361 




ROTBUFI 


TSTB 


ROTI 


jROTATION ALLOWED? 


2198 


013004 


001525 








BEQ 


ROTXT 


;BR IF »'DT. 


2199 


013006 


105737 


001262 






TSTB 


ROTL 


;IS ROTATTOM LOCKED ? 


3200 


013012 


100016 








BPL 


IS 


;N0, CONTINUE 


2201 


013014 


105737 


001275 






TSTB 


LOCK 


jYES, IS THE PROGRAM LOCKED ? 


2202 


013020 


001013 








BVE 


li 


jYES, DON'T SET STOP 


2203 


013022 


005337 


001264 






DEC 


POTCNT 


»N0, TIME TO RELOCATE 7 


2204 


013026 


003114 








BGT 


ROTXT 


jNO, COMTTNUE 


3205 


013030 


105737 


001320 






TSTB 


NSTOP 


J ALLOW STOP TO SET ? 


2206 


013034 


001002 








BNE 


ICS 


[NO, CONTINUE 


2207 


013036 


105237 


001024 






INC9 


STOP 


jYES, SFT THE STOP FLAG 


2208 


01 3042 


013737 


001266 


001264 


lOSS 


MOV 


ROTNUH, POTCNT 


jRESTORE THE COUNTER 


2209 


onoSo 


105737 


001024 




It: 


TSTB 


STOP 


;If STOP TS SET, "OV'T POTRTE 


2210 


013054 


OOllOl 








B»iE 


ROTXT 




2211 


013056 


105737 


001262 






TSTB 


ROTL 


;ROTATE LOCKED? 


2213 


01 3062 


100476 








BMI 


ROTXT 


;PR IF YES 


2213 


01 3064 


105737 


001021 






TSTB 


HDXCTR 


;IF COUNTER NOT INITIALIZED, DON'T ROTATE 


2214 


013070 


100473 








BMI 


ROTXT 




23 1 5 


013072 


A4 374$ 








wov 


Hnnv. • ( SP) 


jCHECK CUPPENT VStUF 


2216 


013076 


043716 


160000 






BIG 


«160000,"CSP) 




2217 


013102 


022736 


016000 






CMP 


116000, (SP)+ 




2318 


01 3106 


003016 








BGT 


3t 


:IF NOT LAST IN BANK, BRANCH 


3319 


OlJllO 


105737 


001021 






TSTB 


MDXCTB 


>HAVE ALL MODULES USED A VALUE IN THIS BANK? 


3330 


013114 


001403 








BEO 


2S 


lYES- TIME TO CHANGE BANKS 


3221 


013116 


105^37 


001302 






DECB 


$GWBFC 


;N0, DEC TIMEOUT COUNTER 


2322 


013132 


001056 








B'JE 


POTXT 


)FXIT UNLESS TIMEOUT HAS OCCURRED 


3223 


013134 


113737 


001022 


001021 


2«t 


HOVB 


MDXCNT, HDXCTR 


•RESET COUNTERS 


2334 


013132 


1 1 3737 


001031 


001302 




MOVB 


ROTCT,»GHBrC 




3335 


013140 


105137 


001033 






COWR 


WBFLG 


iTOGGLE INDICATOR 


2226 


01 3144 


033737 


001216 


001323 


3il 


CMP 


WBUF12tOFFSET 


(LOCORE ROTATION? 


2227 


013152 


062737 


000030 


001216 




ADD 


• 20,ViBUF12 




2228 


013160 


023737 


001316 


001206 




CMP 


WBUF12,HCOR12 


»CHECK FOR TOP OF WRITE BUFFER AREA 


2229 


013166 


103417 








BLO 


R0TB2 


>ir NOT, BRANCH 


2230 


013170 


105737 


001263 




ROTBl 1 


TSTB 


RELOC 


(RELOCATION ALLOWED? 


3331 


013174 


001436 








BEQ 


R0IB3 


iNQ. BRANCH 


3333 


013176 


105737 


001275 






TSTB 


LOCK 


(LOCKED? 


3233 


013202 


001023 








BNE 


R0TB3 


(YES- BRANCH 


3334 


013204 


105737 


001320 






TSTB 


NSTOP 


1 ALLOW STOP TO SET ? 


3335 


013210 


001003 








BNE 


It 


|NQ, CONTINUE 


3336 


013212 


105237 


001024 






INCB 


STOP 


(YES, SET STOP 


3237 


013216 


162737 


000020 


001216 


lis 


SUB 


I20,WBUF12 


(RESTORE WBUF 


2338 


013334 


000415 








BR 


ROTXT 


(EXIT 


3239 


013336 


062737 


002000 


001212 


R0TB2I 


ADO 


12000, WBUF 


(BUMP ADDR- POINT 5l2 WORDS HIGHER 


3240 


013334 


103O03 








BCC 


It 




3341 


013336 


062737 


000020 


001214 




ADD 


•20,WBrEA 




3343 


013344 


004737 


010166 




Itl 


JSR 


PC.SETHBl 


(CALCULATE HXWBF 


3243 


013250 


000403 








BR 


ROTXT 




3244 


013353 


004737 


010126 




R0TB3I 


JSR 


PC.SETNBF 




2345 


013356 


000400 








BR 


POTXT 


(RETURN 


3346 


















2247 


013360 


000207 






ROTXTl 


RTS 


PC 


(RETURN 
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3249 iSUBPOUTZNE TO CH!:CK ir BUFrER POTATION ENABLED, tNO TO TYPE 

33S0 I THE POTATION RANGE, 



33S1 


















32S3 


013263 


105737 


001303 




ROTCHK t 


TSTB 


MEMERF 


jANY MEMORY EPR0RS7 


33S3 


013266 


001406 








BEQ 


11 


|NQ- BRANCH 


33S4 


013270 


104406 


016061 






MSCt 


MERRl 




33SS 


013274 


104406 


014576 






MSGS 


MEMCHG 




33S6 


013300 


105037 


001303 






CIiPB 


MEMERF 




32S7 


013304 


105737 


001361 




i*i 


TSTB 


POTI 


(ROTATE ENABLED? 


33S8 


013310 


001444 








BEO 


2t 


|BR IF NOT, 


3399 


013312 


104406 


014630 






MSGS 


ROTENB 




3360 


013316 


013746 


001300 






MOV 


LOCORE, >(SP) 


(TYPE LOWER LIMIT, 


3361 


013322 


004737 


01 1000 






JSP 


PCi ITOA 




3363 


013326 


005037 


001 130 






CLP 


SAym 


tZERO ANY HIGH ORDER BITS 


3363 


013333 


013737 


001206 


001116 




MOV 


HC0P12> SAVLO 


(COPY INTO LOW ORDER BITS 


3364 


013340 


006337 


001116 






ASli 


SAVLO 


jMAKE IT A 16"BIT NUMBER 


3365 


013344 


006337 


001 1 16 






A SI/ 


SAVLO 


t 


3366 


013350 


006337 


001116 






ASli 


SAVLO 


t 


3367 


013354 


006337 


001 116 






ASL 


SAVLO 


t 


3266 




006337 


001 116 






ASL 


SAVLO 


f 


3269 


013364 


006337 


001116 






ASL 


SAVLO 


1 


3370 


013370 


163737 


000003 


001116 




SUB 


*2, SAVLO 




3371 


013376 


103003 








BCC 


3« 




3373 


013400 


162737 


000030 


OO1120 




SUB 


«20>SAVHI 




3373 


013406 


013746 


001116 




311 


MOV 


SAVLO, -(SP) 


tTYPE UPPER LIMIT 


3374 


013413 


013746 


001130 






MOV 


SAVHI,-(SP) 




3375 


013416 


004737 


010710 






JSP 


PCITOAX 




3376 


















3377 


013422 


000207 






2«i 


RTS 


PC 


lEXIT. 
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2278 








2279 








33«0 








2291 








22S2 








3283 








2284 








2285 








2286 








2287 








2288 


013424 


004437 


012244 


2289 


013430 


016600 


000012 


2290 


013434 


010003 




2391 


013436 


005723 




2392 


013440 


017000 


000000 


2393 


013444 


017303 


000000 


3394 


013450 


005001 




2295 


013453 


005002 




3296 








3297 


913454 


022700 


007020 


2298 


013460 


101013 




2299 


013462 


162700 


007020 


2300 


013466 


005202 




2301 


013470 


000771 




2302 








2303 


?13472 


022700 


000074 


2304 


013476 


101014 




2305 


013500 


162700 


000074 


2306 


913504 


005201 




2307 


013506 


000771 




3308 








3309 


013510 


005703 




3310 


013512 


001767 




3311 


013514 


063702 


000021 


3313 


013520 


062700 


010360 


3313 


013524 


005303 




2314 


013536 


000752 




3315 








3316 


0135^0 


010246 




3317 


013532 


004537 


011744 


3318 


013536 


015507 




3319 


013540 


113737 


015511 


3320 


013546 


013737 


015512 


3321 


6l35»4 


010146 




2333 


013956 


004537 


011744 


3333 


013553 


015507 




3334 


013?64 


013737 


0155J2 


3335 


013572 


010046 




?|3« 


0J3574 


004537 


011744 


3337 


013600 


015507 




3338 


013602 


013737 


015512 


3339 








3330 


Q13610 


004737 


012256 


3331 


013614 


062716 


000004 


3333 


013620 


000207 




3333 









t THIS ROUTINE WILL CONVERT THE GIVEN BINARY 

jNUMBEP INTO HOURS, MINUTES, AND SECONDS. LOCATIONS 
I HOLDING THE FINAL NUMBERS WILL BE TAGGED AS I HOURS, 
iMINITS, AND SEKNDS. HOURS MUST BE ON AN ODD BOUNDARY, 
jMINITS AND SEKNDS ""UST BE ON EVEN ROUNDAPIF-S, 
(TEMPORARY LOCATION H0LD5 MUST BE ON AN ODD BOUNDARY, 



CALL VIA« 



HMSi 



001353 
001354 



001356 



001360 



JSR 
ADR 
ADRX 



PCH^-S 



(ADDRESS OF THE TIME 

(ADDRESS OF EXTENDED TIKE BITS 



JSR 


R4,SAV04 


(SAVE REGS. 0-4 


MOV 


10.(SP),BO 


(GET ADP OF OF ADR TIME 


MOV 


R0,R3 


(COPY IT INTO REG, 3 


TST 


(R3) + 


(GET ADR or EXTENDED TIME BITS ADP 


MOV 


a(PO),RO 


(PUT THE TIME IN REG. 


MOV 


«(R3),R3 


(PUT EXTENDED TIME BITS INTO PEG. 3 


CLP 


PI 


(ZERO MINUTES COUNTER 


CLR 


R2 


(ZERO HOURS COUNTER 


CMP 


*3600,,R0 


(LESS THAN J H0UP7 


BHI 


3t 


(YES, GO LOOK FOR MORE HOURS 


SUB 


03600. ,P0 


(NO, SUBTRACT 1 HOUO'S WORTH OF SECONDS 


INC 


R2 


(COUNT AN HOUR 


BP 


1( 


(CHECK FOR MORE HOURS 


CMP 


160. ,R0 


(LESS THAN 1 MINUTE? 


BHI 


4( 


(YES, ALL DONE 


SUB 


160. ,R0 


(HO, SUBTRACT 1 MINUTE'S WORTH OF SECONDS 


INC 


Rl 


(COUNT A MINUTE 


BR 


21 


(CHECK FOR MORE MINUTES 


TST 


R3 


(ANY EXTENDED TIME PITS ? 


BEO 


2t 


(NO, GO LOOK FOR MINUTES 


ADD 


«17.»P2 


(YES, ADO IN 17, HOURS 


ADD 


14336. ,R0 


(ADO IN 1 HP 12 HIN 16 SEC 


DEC 


R3 


(GET RIO OF ONE TIME EXTENDED BIT 


BR 


IS 


(CONTINUE 


MOV 


R2,-CSP) 


(PUT THE HOURS ON THE STACK 


JSR 


R5,BDCNV 


(CONVERT IT TO ASCII 


HOLDS 




(AND PUT IT HERE 


HOVB 


H0LD5'f2, HOURS 


(LOAD HOURS 


MOV 


HOLDSf 3,H0URS+1 


(LOAD HOURS 


MOV 


R1,-(SP) 


(PUT THE MINUTES ON THE STACK 


JSP 


RS.BDCNV 


(CONVERT IT TO ASCII 


HOLDS 




(AND PUT IT HERE 


MOV 


HOLD5f3,MINITS 


(LOAD MINUTES 


MOV 


RO,-(SP) 


(PUT THE SECONDS ON THE STACK 


JSR 


RS.BDCNV 


(CONVERT IT TO ASCII 


HOLDS 




(AND PUT IT HERE 


MOV 


HOLDS+S, SEKNDS 


(LOAD SECONDS 


JSR 


PC,RST04 


(RESTORE REGS 0-4 


ADD 


14, (SP) 


(SET PROPER RETURN PC 


RTS 


PC 


(AND RETURN 
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2334 














2335 














?33« 








f 


THIS 


IS THE CALLING 


2337 














3338 


013622 


013706 


001136 


HUKQCKI 


MOV 


SPStV.SP 


2339 


013626 


005046 






Clip 


-(SP) 


2340 


013630 


012746 


013636 




MOV 


Cllf-CSP) 


234S 


013634 


000002 






PTI 




3342 


013636 


005037 


001374 


i(i 


CLP 


CSTART 


3343 


013642 


000137 


004S50 




JMP 


ENDSVG 



SRESTORE MONITOR STACK POINTER 

jCLEAP PSH ON STACK 

J SETUP RETURN PC 

iLOAD NEM PSM AND CONTINUE 

J INDICATE NO MODULES DOING EOP 

jGO CHECK TOP OTHER MODULES PUNNING 
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2344 










(GET WRITE BUrFER ADDRESS SERVICE 


2345 


















2346 


013646 


010146 






GWBUF.I 


MOV 


R1 ,-CSP) 


jSAVE REGISTER 


2347 


01 3650 


010346 








MOV 


R2,-CSP) 




3348 


013652 


017601 


000004 






MOV 


a4(SP),P1 


»GET ADDRESS OF MODULE 


2349 


ni 3656 


010102 








MOV 






2350 


013660 


062701 


000074 






ADD 


tWBUFPA,Ri 




3351 


013664 


013721 


001212 






MOV 


WBUF, (Rn + 


fLOAD ADDRESS OF WRITE BUFFER 


3352 


01 3670 


013721 


001214 






MOV 


WBFEA, 


iLOAD EXTENDED ADDRESS BITS 


2353 


013674 


012111 








MOV 


(Pl) + ,{Rn 


jMOVE SIZE REQUESTED INTO SIZE ALLOWED 


2354 


013676 


021137 


001336 






CMP 


CRD/MXWBF 


iPEQUESTED SIZE OK? 


3355 


01 3702 


10140? 








BLOS 


1« 


jYES- BRANCH 


2356 


OJ3704 


013711 


001236 






MOV 


MXWBF, (PI) 


jNO. SET ALLOWED SIZE 








0«1031 




1«t 


Tare 


MDXCTP 


Tir NOT YPT SETUP, 9«lp 


3359 


01 1714 


1 0(541 








BVl 


2> 




2359 


013716 


126237 


000005 


001023 




CMPB 


XrLAGC3).WBFLG 


»ir SAME, HAS ALREADY USED THIS BANK 


3360 


013724 


001404 








BED 


2« 




2361 


013726 


105162 


000005 






COMB 


XFl.AG(2) 


(IF NOT, SET FLAG TO SAME 


3362 


013733 


105337 


001021 






DECS 


MDXCTP 


jAND COUNT DOWN MODULES 


3363 


013736 


012602 






2*1 


MOV 


(SP)+.P2 


(RESTORE REGISTERS 


3364 


013740 


013601 








MOV 


(SP)+,P1 




3365 


013742 


062716 


000002 






ADD 


#2,(SP) 


•SETUP RETURN PC 


3366 


013746 


105337 


001035 






DECS 


POT 




3367 


013752 


100005 








BPL 


3t 




2368 


013754 


113737 


001305 


001035 




MOVB 


POTNiPOT 




2369 


013763 


004737 


013000 






JSR 


PC.POTBUF 


iGO CHANGE WRITE BUFFER ADDRESS 


3370 


013766 


00000? 






311 


PTI 




tPETUPN 


2371 


















2372 


















2373 


















2374 


013770 


010146 






GETPA.I 


MOV 


Rl.-CSP) 


(SAVE RFG. 1 


2375 


"13772 


017601 


noooflj 






MOV 


»2CSP),R1 


jGET ADDRESS OF TABLE 


2376 


013776 


012121 








MOV 


(Pl)+»(R1)+ 


jCOPY VA INTO PA 


2377 


014000 


005011 








CLP 


(PI) 


(CLEAR EA BITS 


2379 


014003 


012601 








MOV 


(SP)+,R1 


(RESTORE REG. 1 


2379 


014004 


062716 


000002 






ADD 


t2,(SP) 


(SETUP RETURN PC 


3380 


014010 


000002 








PTI 




(RETURN 


2381 


















2382 
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SEQ 0241 



3383 








jTHIS POUTINE 


ALLOWS RH70 DEVICES TO BE RUN WITH THE STANDARD MONITOR 


2384 
















2385 
















2386 


014012 


010146 




M»P22,» 


MOV 


Rl »-CSP3 


tSAVE REG, 1 


2367 


014014 


017601 


000002 




MOV 


|I2(SP)»R1 


iGET THE 18T ADDRESS OF THE TABLE 


2388 


014020 


012161 


000002 




MOV 


(PO + »2fRl) 


(GIVE BACK THE SAME 18 BITS 


2389 


014024 


011161 


000004 




MOV 


(Rl)»4CRl ) 


jTHAT WERE GIVE*I TO BE CONVERTED 


2390 


014030 


006261 


000004 




ASR 


4(R1 ) 


jSHIFT BACK FRO" POSITIONS 4 AND 5 


2391 


01 4o34 


00626 1 


A Art A A A 




ASR 


4(R1} 


»T0 POSITIONS AND 1 


2392 


014040 


006261 


000004 




ASR 


4(R1) 


J 


2393 


014044 


006261 


000004 




ASR 


4(Pn 


> 


2394 


014050 


012601 






HOV 


(SP)+iPl 


jRESTORE REG, 1 


2395 


014052 


062716 


000002 




ADD 


12, (SP) 


jSKIP OVER VA TO GET THE RETURN PC 


2396 


Ol4o56 


000002 






RTI 




1 RETURN 


2397 


014060 


000207 




MVCODEl 


RTS 


PC 


(DO NOTHING 
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2398 










iPUHE MESSAGES 




2399 
















2400 


014062 


042045 


041505 


054057 


TlTLEl 


.ASCIZ 


•*DFC/X1]. DXOAC-D SHORT HOMITOR' 


3401 


014070 


030461 


020056 


054104 








2402 


O14076 


040521 


076505 


020104 








2403 


014)04 


044)23 


05) 117 


020134 








2404 


014112 


047515 


044516 


047524 








2405 


014120 


00012? 












2406 


014122 


027045 


000 




DOTi 


.ASCIZ 




2407 


014125 


045 


000 




CR» 


.ASCIZ 




2408 


014127 


045 


000045 




CROP J 


.ASCIZ 




2409 


014132 


040440 


000124 




AATj 


.ASCIZ 


' AT' 


2410 


014136 


051045 


047125 


051440 


SUHARYj 


.ASCIZ 


'%RUN SUMMARY' 


2411 


014144 


046525 


040515 


054522 








3412 


014152 


000 












2413 




014155 








ACRLF«,+2 


2414 


014153 


136 


022503 


000 


CTPLCl 


.ASCIZ 


•"c%' 


2415 


0)4157 


045 


020045 


052521 


OOVRFLi 


.ASCIZ 


'*% QUEUE OVERFLOW SYSTEM CASH*' 


3416 


014164 


052505 


020105 


053117 








3417 


014172 


051105 


046106 


053517 








3418 


014200 


026440 


026455 


051440 








2419 


014206 


051531 


042534 


020115 








2420 


014214 


051 103 


051501 


022510 








3421 


014222 


000 






INVTRPt 






2422 


014223 


045 


020045 


047111 


.ASCIZ 


•%% INVALID TRAP CALL — SYSTE''' CR»SH%' 


2423 


014230 


040536 


044514 


020104 








2424 


014236 


051124 


050101 


041440 








2425 


014244 


046101 


020114 


026455 








3426 


014252 


020055 


054523 


052123 








2427 


014260 


046505 


041440 


040522 








2438 


014266 


044123 


000045 










3439 


014272 


041045 


042101 


041440 


INVCMDi 


.ASCIZ 


'*BAD CMD%' 


3430 


014300 


042115 


000045 










2431 


014104 


041445 


052116 


020114 


INVCDl J 


.ASCIZ 


•%CNTL C ONLY*' 


3433 


014312 


020103 


047117 


054514 








3433 


014320 


000045 












3434 


014332 


047045 


020117 


052113 


INVC02I 


.ASCIZ 


'%N0 KT11%' 


3435 


014330 


030461 


000045 




IMVCD3i 






3436 


014334 


047045 


020117 


052113 


.ASCIZ 


♦%N0 KT11%' 


3437 


014342 


030461 


000045 




INVC04i 






3438 


014346 


047045 


020117 


047515 


.ASCIZ 


'%N0 MODS SEL%' 


3439 


014354 


051504 


051440 


046105 








3440 


014362 


000045 












3441 


014364 


041045 


043101 


040440 


INVADRi 


.ASCIZ 


'*BAD ADR/DATA%' 


3443 


014372 


051104 


043057 


053101 








2443 


014400 


022501 


000 










3444 


014403 


045 


040503 


020104 


INVNAHi 


.ASCIZ 


'%BAD NAME%' 


3445 


014410 


040516 


043515 


000045 








3446 


014416 


045445 


053503 


020106 


KBOFLOi 


.ASCIZ 


'*KBUr OFLO* 


3447 


014424 


043117 


047514 


000 


CLR40i 






2448 


014431 


045 


052045 


020117 


.ASCIZ 


•%%T0 EXERCISE LOAD MEDIUM YOU MUST CLEAR 


3449 


014436 


054105 


051105 


044503 








3490 


014444 


042523 


046040 


040517 








34B1 


014452 


020104 


043515 


044504 








3453 


014460 


046535 


054440 


053517 








2453 


014466 


046440 


051525 


020134 
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2454 


014474 


046103 


040505 


030123 








2455 


014503 


047514 


020103 


030064 








2435 


Gi43i0 


000045 












2457 


014512 


051445 


051531 


043440 


SYSEPRl 


.&SCIZ 


•%S¥S ERR (VlPT,PC»PSW»SPi VECT) t 


2458 


014520 


0S1122 


034040 


044536 








2459 


014536 


052122 


050056 


036103 








2460 


014534 


051520 


026127 


050133 








2461 


014543 


053054 


041505 


034524 








2463 


014550 


020072 


000040 










2463 


014554 


033445 


047520 


042527 


PWRFAli 


.ASCIZ 


'*%POWER FAILURE%%' 


2464 


014562 


030133 


040506 


046111 








3465 


014570 


051135 


022505 


000045 








2466 


014576 


051045 


047125 


046440 


MEMCHGl 


.ASCIZ 


'%PUN MEMORY TESTS' 


246? 


014604 


046505 


051117 


020131 








2468 


014612 


042534 


052123 


000133 








2469 


014630 


044045 


046101 


032534 


HliTl 


.ASCIZ 




2470 


014626 


000045 
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2471 


01*630 


053445 


044522 


043524 


POTENBj 


.ASCIZ 


2472 


014636 


041040 


043125 


043506 






2473 


014644 


020122 


047522 


040524 






2474 


014652 


044524 


047117 


042440 






2475 


014660 


040516 


046103 


042105 






2476 


014666 


020056 


040522 


043516 






2477 


014674 


035105 


000040 








3478 










ROTDlSt 




2479 


014700 


053445 


044522 


042524 


.ASCIZ 


2480 


ni 4706 


041040 


043125 


042506 






2481 


0147) 4 


0201 22 


047522 


040524 






2482 


014722 


044524 


047117 


042040 






2483 


014730 


051511 


041 101 


043514 






2484 


014736 


000104 










24?5 


014*'40 


045*45 


030524 


090061 


KTOHMf 


.»8CTZ 


2486 


01 4746 


047105 


041101 


042514 






2487 


01 4754 


000104 










3488 


01 4756 


051445 


044527 


041524 


NOSWRi 


.^SCIZ 


3489 


014764 


020110 


042522 


044507 






2400 


014772 


012123 


051105 


040440 






2491 


015000 


020124 


047514 


027103 






2492 


015006 


030440 


030060 


022464 






2493 


01501 * 


000 










2494 




015016 








.EVEN 
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SEO 034! 



349S 










f ROUTINE TO LOAD WORST CASE 


TTNTRIIA DITI'ITDN TH &T.T' Vsrv MFMnDV 












LOADwC 1 


■ 






3497 


015016 


004437 


013244 




JSR 


R4( SAV04 




3499 


015033 


013703 


001304 








tf<nD4A BA 

liCOHi2«R2 


tSETUP 19 HTT ftTSDTTNft innPffK 
J oc« * wr 14 ail O'nrltn^ muunCiOO 


3499 


6lSo36 


063703 


001333 






ADD 


OrPSETr R2 






At 4 Al9 


033703 


AA i 9 AA 






CMP 


HCOP12>R3 


lltNY MEMORY TO LOAD 1 


3S01 


M 1 ■ A )A 

D 1 30 « V 


001435 








BEQ 


Bt 


fKO, GET OUT 






01 3700 


AA t 9 A A 






HOV 


IiOCOREt RO 


aJW Vn IfTI 1 DA UTT.r f*nVf\ftS fiUVaT,*ftT KnABVCG 

} ir nu Kiix, rtluLt LUNTAIN rnZaluAii AUyKEioo 


3503 


bl5o44 


013704 


015133 




3ti 


MOV 


(WCASEf R4 


• TinftA ftnnDP4]C no* 'uhbst /^isr Afcv& vsarfl* 

lUUAU Al/ynCiOo Ur WUKDl CAoEa UAiA lADuEi 


3504 




1 05737 


00 1 353 




31 i 


TSTB 


KTPRES 


1 uoci ^ i 1 1 r 


3505 


015054 


001404 








BEQ 


5* 


■una ADkU^U 


3506 


015056 


01 270v 


A AAA A A 




4«i 


MOV 


i40000f RO 


lObT VJKTUALi AUPPe.35 Tu TnCi START OF PAdBi 3 






010237 








MOV 


R3f KIPAR3 


fpiAr FAvt. 2 rniolV^Au ADPaBiOO 


3508 


0150BO 




AA AA 




SI 1 


MOV 


t3S6arR3 


• I1D ^DTTHTVa 
J9&J Ur UVUnxCf,* 


3509 


015072 








6I| 


HOV 


(R4) » CRO) + 






015o74 


00* 30 J 








DEC 


R3 




35 1 1 




001 375 








BKE 


61 




35 1 3 


015100 


063703 


A A A A 4 A 






ADD 


*10f R3 


fAPTER EACH 356 WORDS, REMAP 


351 3 


01 5 1 04 


030337 


001306 






CMP 




iDOME? 


351 4 


0151 10 


003403 








BIT 


71 


|H0* BRANCH 


35 1 5 


015113 


004737 


A« A<9BC 

012290 




811 


JSP 


PC,RST04 




35 1 6 




QUW«U f 








RTS 


PC 


lYES- EXIT 


35 1 7 




005734 






711 


TST 


CP4) + 


IMOVE DATA POINTER 


25 1 fl 


01512/ 










CMP 


R4,»WCASEE 


iTO NEXT WORST CASE VALUE 














BLO 


3« 


JAND CONTINUF 


2520 


01 5 1 JO 


00074 








BP 


3S 




3531 


















3533 


6 1 5 1 33 


177776 


00000 1 


1 77775 


HCASEl 


9 WORD 


177776, 1,177775. 3, 177773, 4, J 77767, in 


3533 




AA aaa9 


177773 


000004 










3534 




177767 


AAAAt A 
















177757 


A AA A9 A 


177737 




« WORD 


177757,20,177737,40,177677, 100,177577,200 






000040 


177677 


000100 










3537 


015166 


177577 


A AA9 AA 












3536 


015173 


177J77 


000400 


176777 




.WORD 


177377,400, 


176777,1000,175777,2000,173777,4000 


3539 


015300 


OOlOOO 


175777 


003000 










3530 


015206 


173777 


004000 












3531 


015312 


167777 


010000 


157777 




.WORD 


167777,10000,157777,20000,137777,40000,77777,100000 


3533 


015220 


030000 


137777 


040000 










3533 


015236 


077777 


100000 












3534 


015232 








MCASEEi 
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2535 










iCOMMAND TABLE, 


KEYBOARD COMMANDS ARE MATCHED AIAINST IT 


2536 










ITHE MATCH MUST 


BE EXACT. NO ABBREVIATIONS IRE ALLOWED, 


2537 














2536 


015333 








COMTABi 




2539 


015233 








TOKN 


-•RUN",RU»= 


2540 


015233 


053532 


000116 




.ASCIZ 


*PUN% 


2541 


015340 


007420 






.WORD 


PUN 


2543 


015243 








TOKN 


••MOD", MOD 


2543 


015343 


047515 


000104 




.ASCIZ 


%MOD% 


2544 


015350 


010574 






.WORD 


MOD 


2545 


015252 








TOKN 


•"SEL",SEL 


2546 


015252 


042523 


000114 




.ASCIZ 


%SEL% 


2547 


015260 


010423 






.WORD 


SEL 


2548 


015263 








TOKM 


•"DCS", PES 


2549 


015262 


043504 


000133 




.ASCIZ 


%DES% 


2550 


015270 


010440 






.WORD 


DES 


2551 


015372 








TOKN 


•"MAP", MAP 


3552 


01S272 


040515 


000130 




.ASCIZ 


%MAP% 


2553 


015300 


010354 






.WORD 


HAP 


3554 


O15302 








TOKN 


•"TILL", FILL 


3555 


015302 


044506 


046114 


000 


.ASCIZ 


%FILLt 


2556 


015310 


010566 






.WORD 


FILL 


2557 


015312 








TOKN 


-"KTOFF",KTOFF 


2558 


015312 


052113 


043117 


000106 


.ASCIZ 


*KTOrr% 


2559 


015322 


010522 






.WORD 


KTOFF 


2560 


015324 








TOKN 


-"KTON",KTON 


2561 


015334 


052113 


047117 


000 


.ASCIZ 


%KTON% 


3562 


015333 


010522 






.WORD 


KTON 


2563 


015334 








TOKN 


••PON", PON 


2564 


015334 


047530 


000116 




.ASCIZ 


»PON% 


2565 


015343 


010533 






.WORD 


PON 


2566 


015344 








TOKN 


•"POFr",POFF 


2567 


015344 


047530 


043106 


000 


.ASCIZ 


%porr% 


2568 


015353 


010532 






.WORD 


POFF 


2569 


015354 








TOKN 


•"ROTON",POTON 


2570 


015354 


047522 


047524 


000116 


.ASCIZ 


%RbTONt 


2571 


015364 


010536 






.WORD 


ROTON 


2572 


015366 








TOKN 


••ROTOFF",ROTOFF 


3573 


015366 


047533 


047534 


043106 


.ASCIZ 


%PbTOFF% 


3574 


015374 


000 










3575 


015376 


010543 






.WORD 


ROTOFF 


3576 


015400 


015 


000 




.BYTE 


15,0 ICR 


3577 


015403 


004 


000 




.BYTE 


4,0 


3578 


015404 


007364 






.WORD 


C0HC02 


3579 


015406 


000000 


000000 


000000 


.WORD 


0,0,0 
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2580 (XMPUPG MESSACCS 

Z98i 



2582 


015414 


020045 


020040 


020040 


AMODNMt 


.ASCII 


'% AT • 


2S83 


015423 


040440 


020124 










3584 


015436 


030040 


020040 


030040 


APCt 


.ASCII 


• STAT • 


2S8S 


015434 


051440 


040524 


020124 








2S86 


015443 


030040 


020040 


020040 


AXDSTAl 


.ASCII 


• > 


3S87 


015450 


020040 


040520 


041523 


MDIREi 


.ASCII 


• PASCHT ' 


2588 


015456 


0521 16 


040 










2589 


015461 


040 


020040 


020040 


APSCNTi 


.ASCII 


• . ERRCNT 


2590 


015466 


020056 


042440 


051132 








2591 


015474 


047103 


020124 










2592 


015500 


020040 


020040 


027040 


AERRSi 


.ASCIZ 


• • 


2593 


015506 


000 












2594 










.ODD 






2595 


015507 


040 


020040 


030040 


HOLDS 1 


.ASCXZ 




3596 


015514 


000 












2597 


015515 


040 


020040 


020040 


H0L06t 


.ASCIZ 


> « 


2598 


015522 


020040 


000040 










2599 


015526 


020040 


020040 


020040 


H0LD8 1 


.ASCIZ 


r > 


2600 


015534 


030040 


030040 


000 








2601 


015541 


040 


02004C 


020040 


AEHDt 


. ASCII 


' PC'' 


2602 


015546 


020040 


041520 


055 




















..... 




2604 


015560 


030040 


050101 


026503 








3605 


015566 


030040 


020040 


020040 


AEHD2r 


.ASCIZ 


> t 


2606 


015574 


000040 












260' 


015576 


030040 


040520 


051523 


tPASSi 


.ASCII 


' PASS* ' 


3608 


O15604 


030043 












3609 


015606 


030040 


020040 


037040 


APASSi 


.ASCIZ 


t f 


2610 


01561 4 


000 












261 1 


015615 


040 


051 1 04 


0501 17 


MODEVOi 


.ASCIZ 


' DROPPED!' 


361 2 


015632 


043530 


022504 


000 








361 3 


015637 


1 OS 


0431 16 


040520 


apsendi 


.ASCII 


•ENDPAS-* 


361 4 


01 5634 


036523 












2615 


015636 


030040 


020040 


037040 


BPSCNTi 


.ASCIZ 


• • 
* 


3616 


015644 


000 






AERRORt 






3617 


015645 


045 


051503 


040522 


•ASCII 


'%CSRA ' 


361 8 


01 5653 


040 






ACSRACi 






9619 


015653 


040 


020040 


020040 


.ASCII 


' CSRC ' 


2620 


015660 


020040 


051503 


041523 








3621 


015666 


040 












2622 


015667 


040 


020040 


020040 


ACSRCi 


.ASCII 


' STATC ' 


2623 


015674 


030040 


0521 23 


052101 








3634 


015703 


020103 












3625 


015704 


020040 


020040 


020040 


ASTATCl 


.ASCIZ 




2626 


015713 


000040 












2627 


015714 


041445 


051123 


030)01 


ADTERPJ 


.ASCII 


•4CSRA • 


3638 


015722 


020040 


020040 


020040 


ADTE6I 


.ASCII 


' S/B • 


2639 


015730 


051440 


041057 


040 








3630 


015735 


040 


020040 


020040 


A0TE3i 


.ASCII 


' WAS • 


2631 


015742 


020040 


040527 


020123 








2632 


015750 


020040 


030040 


020040 


ADTE21 


.ASCII 


• WBADP • 


3633 


Hi 575ft 


053440 


040523 


051104 








2634 


015764 


040 












3635 


015765 


040 


020040 


020040 


AOTESs 


.ASCII 


' ROADR ' 
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3636 


015773 


020040 


042122 


042101 










3637 


016000 


020122 














3638 


016003 


020040 


020040 


020040 


ADTE4J 


.ASCIZ 






3639 


016010 


000040 














3640 


016013 


042040 


052101 


030101 


ADTE4AI 


.ASCIZ 


' DATA 


ERROR* 


2641 


016030 


051105 


047522 


000122 










2642 


016036 


047537 


042122 


020043 


ADTEXJ 


.ASCII 


•word* 




2643 


016034 


030040 


030040 


027040 


ADTE7J 


.ASCIZ 




.%• 


2644 


016043 


000045 














3645 


O16044 


042440 


051 122 


030043 


ERRNMB: 


.ASCII 


' ERR* 




3646 


016053 


020040 


020040 


027040 


AEPIMBi 


.ASCIZ 






3647 


016060 


000 














3648 


016061 


045 


042515 


020115 


MERPl t 


.ASCII 


•*MEM 


FAILURE- PA • 








0*«'111 


o«i'i?ir 










J650 


016074 


0?6505 


050040 


030101 










2651 


016103 


020040 


020040 


030040 


HEfiR2l 


.ASCII 




S/B • 


3653 


0161 10 


051440 


041057 


040 










3653 


016115 


040 


020040 


030040 


mf:rp3i 


.ASCII 




WAS ' 


7654 


016123 


030040 


040527 


030133 










365S 


0161 JO 


030040 


0300*0 


030040 


MCRR4t 


-ASCIZ 






3656 


016136 


noO04O 














3657 


016140 


030045 


020040 


030040 


AERNMt 


.ASCII 


•* 


HAD • 


3658 


016146 


044040 


042101 


040 










36S9 


016153 


040 


020040 


03004O 


AFRCTj 


.ASCII 




. DATA ERRORS 


3660 


016160 


030056 


040504 


040524 










3661 


016166 


042440 


051122 


051117 










36*2 


01H174 


020123 


053517 


020124 










3663 


016302 


043117 


040 












3664 


016205 


040 


020040 


020040 


AERTOTi 


.ASCIZ 




. WORDS READ! 


2665 


016213 


020056 


047527 


042122 










2666 


016220 


030123 


042522 


042101 










2667 


016336 


000045 














3668 


016330 


040 


040 


040 


DECVALj 


.BYTE 


40,40, 


40,40,40,40 


3669 


016333 


040 


040 


040 











wxaU OBC/XU SHOhT monitor MkCYtt a3-APP«77 i3tS3 PASE 9S 

DXQABH.pil 2t>APP-7T 1214! SEQ 0349 



S670 






« RTTrl'VB 

f Q U r r Bf n 


AREAS, 








367 1 
























EVEN 








367 3 


016336 




MODQt 








jROOM FOP 20 MODULE POINTERS 


3674 


U 1 O JU9 




KBUF 1 






jKEYBOAPD BUFFER, KBUFIi LONG 


3675 


1 (346 


000100 






64 ■ 




JMONITDR STACK AREA 




1 6846 




SPBOTi 










2677 


1 6546 


000020 




.BliKH 


16. 




JSPECIAI MONITOR STACK AREA 


2678 


01 6606 




SPSPECi 










2679 


016606 


000310 


lOQt 


.BLKB 


lOOL 






3660 


017116 


000454 


TyPEQl 


.BLKB 


TVPOL 






3681 
















3683 




017573 




• ■ ■ 






(FIRST ADDRESS AFTER OUFUES 


36S3 




014000 






STAPT 




3684 
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3685 










fROUTINE TO DFTKRMINE WHETHEP 


26P6 










J AND TO 


DETERMINE CORE LIMITS 


2687 










|RT1 OR 


PTT INSTRUCTION. 


76Sfl 




016606 








.»I0O 




26R9 


016606 


013737 


016624 


OOOOlO 


SETBUFl 


MOV 


*1$,RESIV 


2690 


ni6614 


005046 








CLP 


-(SP) 


3691 


016616 


012746 


016654 






MOV 


»2S.-(SP) 


3692 


016622 


000006 








RTT 




3693 


016634 


013737 


000002 


005000 


181 


MOV 


»PTI,TPCIA 


2694 


016632 


012737 


000002 


003620 




MOV 


tP.Tl»PTTl 


2695 


016640 


013737 


001336 


001346 




MOV 


CHKL2,CHKL1 


3696 


016646 


01 3737 


001340 


001350 




MOV 


CHKH2.CHKV1 


2697 
















2698 


016654 


012737 


012534 


OOOOlO 


2t| 


MOV 


»PF.S1NT,RESIV 


2699 


016662 


105037 


001301 






CLRB 


MDL45 


2700 


016666 


105037 


001352 






CLRB 


KTPPES 


2701 


016673 


105037 


001361 




STBFAj 


CLRB 


ROTl 


2702 


016676 


105037 


001263 






CLRB 


PELOC 


2703 


016702 


013737 


000000 


001200 




MOV 


0»LOCORE 


2704 


016710 


001004 








BNE 


IS 


2705 
















2706 


016713 


005137 


001300 






COM 


LOCORE 


2707 


016716 


000137 


017214 






JMP 


SFTXT 


2708 


016732 


004537 


012174 




l«t 


J5R 


R5,T0P12S 


2709 


016726 


001300 








LOCORE 




2710 


016730 


032737 


000777 


001200 




BIT 


#777»LOCOPE 


2711 


016736 


001414 








BEO 


2« 


2713 


016740 


042737 


000777 


001200 




PIC 


#777»LOrORE 


2713 


016746 


042737 


000007 


001204 




BIC 


»7,LCOP12 


2714 


016754 


062737 


001000 


001200 




ADO 


»3000, LOCORE 


2715 


016762 


062737 


000010 


001204 




ADD 


»10»LC0R12 


2716 


016770 


013737 


000043 


001206 


2Sl 


MOV 


42,HCOR12 


2717 


016776 


001403 








BEQ 


KTTEST 


2718 


017000 


112737 


177777 


001260 




HOVB 


1-1, CHN 


2719 


017006 


105737 


001353 




KTTESTJ 


TSTB 


KTPRES 


3720 


017012 


001035 








BNE 


SETKT 


2721 


017014 


012737 


017056 


000004 




MOV 


I5tr4 


2722 


017022 


012700 


174000 






MOV 


#-4000, PO 


3723 


017036 


005001 








CLR 


PI 


3724 


017030 


062700 


004000 




4ii 


ADD 


«4000«R0 


2725 


017034 


062710 


000000 






ADD 


*O,(R0) 


3726 


017040 


005201 








INC 


Rl 


2727 
















2728 


017043 


022701 


000034 






CMP 


»2B,#Rl 


2729 


017046 


001370 








BNE 


4« 


2730 


017050 


062700 


004000 






ADO 


*4000(RO 


2731 


017054 


000401 








BR 


6$ 


2732 


017056 


023636 






5tl 


CMP 


tSP)+, CSP)+ 


2733 
















2734 


017060 


000300 






6«i 


SWAB 


RO 


3735 
















3736 


017063 


006300 








ASL 


RO 


2737 


017064 


006300 








ASL 


RO 


2738 


017066 


042700 


170037 






BIC 


»170037.R0 


2739 


017073 


105737 


001360 






TSTB 


CHN 


2740 


017076 


100003 








BPL 


SETCOH 



WRITE BUFFKB POTATION SHOULD TAKE PLACE, 

OF PUFFER POTATIOW. ALSO TO DETERMINE USE OF 



SSET UP A RESERVED TNSTPUCTION TRAP. 

(CLEAR A KORD ON THE STACK FOR A NE* PS« 

jSET UP TO EXIT WITH PTT INSTRUCTION, 

■ IF PTT "JOT VALID IT WILL TPAP OUT. 

jTRAP COVES HERE. CHANGE RTT'S TO PTI'S. 

; By SETTING THE T"STPUCTION' VALUE 

(CHANGE SET OF CHKSUM WORDS BECAUSE 

(OF RTT'S REPLACING RTT'S 

(OF ALL RTT'S TO THOSE OF PTI'S 

[RESTORE THE RESERVED INSTRUCTION TRAP VECTOR 

(NOT A 45 

(NO KTll 

(ASSUME NO BUFFER ROTATION. 

(ASSUME NO CODE RELOCATION 

(GET LOCORE ADDP. FROM LOC 

(BR IF LINKED WITH CONFTG/LINKEP PRGGHAN- 

(IF NOT ASSUMES NQT IN CHAIN MODE 

(INDICATE SETBUF HAS BEFN RUN 

jGO PREPARE TO EXIT SETBUF POUTTNE 

(GET TOP )2 BITS OF LOCORE PHYS ADDP 

(AND PUT IT INTO LC0R12 

(IS IT ON A 256 WORD BOllNOARY 7 

(YES, CONTINUE 

(NO, CLEAR OUT LOWER BITS 

(ROUNDING OFF TO NEXT HIGHEST 256 BOUNDARY 
(POUND UP TO THE NEXT 256 WORD BOUNOAKY 
(ALSO INDICATE THAT BOUNDARY IN L0C0R12 
(ARE WE IN CHAIN MODE? 

(IF NO, GO DETERMINE IF KT IS TO BE USED 
(IF YES, SET THE CHAIN INDICATOR 
(IS THE KTll AVAILABLE FOR USE? 
(IF YES, GO SIZE MEMORY USING IT 
(IF NO, ONLY SIZE MEMORY UP TO 28K 
(INITIALIZE LOOP COUNTER TO POINT TO BANK 
(INITIALIZE THE COUNTER OF IK CHUNKSCBANKS) 
(POINT TO THE FIRST WORD IN THE NEXT IK BANK 
(WILL TPAP IF LOC DOESN'T EXIST 
(IF NO, CONTINUE PPOCESING AT 4$ 
(IF YES, UP THE "EMORY BANK COUNT 
(HAVE 28 BANKS BEEN COUNTED? 
(IF NO, GO CONTINUE SIZING 

(IF YES, INDICATE THE NUMBER OF WORDS IN RO 
(SKIP OVER THE NEXT INSTRUCTION 

(IF THERE WAS NO LOCATION AT LAST TRY, 
(REMOVE THE TRAP FROM THE STACK 
(ISOLATE THE 12 HGH OPDER BITS, FIRST, 
(GET THE MOST SIGNIFICANT BITS IN THE LOW BYTE 
(ALIGN THE BITS TO ACCOUNT FOR 
(EXTENDED ADDRESS BITS £17 ♦ IB) 
(ELIMINATE THE UNWANTED BITS FROM RO 
(ACTll CHAIN? 

(NO- DON'T ADD ROOM FOR MONITOR 
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44 !i il 




162700 


0001 00 






SUB 


fl 1 no a Ro 


J YES- AtiLOW ROOM FOR MONITOR 




2742 












9P 


SETCOM 


SGO TEST THE MEMORY 






0171 06 






















012737 


012516 


000004 


SETCOM t 


MOV 


# BUSERR p 4 


:RESET BUS ERROR TRAP, 






017114 




001206 






HOV 


RO ■ HC0R12 


(HI AODR TO HC0R12, 




2'*6 


Ol7l20 


0047 37 


017 225 




SETCM| 1 


JSP 


PC a TSTHEH 


sTEST MEMORY FOR BASIC FUHCTIONIKG 


2747 
















»VIA ADDRESS UP/DOWB TEST 










001206 






MOV 


HCOP 1 2 « PO 


«OIFF BETWEEN LC0R12 AND HC0R12 




niTi in 


ni nn»T 


001210 






wov 


RO J HCORSV 


(INITIALIZE SAVE LOCATION FOR 


KION/OFF COMMANDS 


1 • * ' 


ni 74 W 


163700 


001204 






SUB 




(MUST BE AT LEAST 40 






ni'T< In 


022700 


000040 






CMP 


1 40 f RO 


jIS IT? 




2752 


017144 










BHX 


SETXT 


(FORGET IT IF NOT. 




2753 


l7 1 46 


105237 


001261 






INCB 


POTI 


(ALLOW ROTATION, 




2754 


1 7 1 5 2 


1 057 37 


001252 






TSTB 


KTPPES 


(NO RELOCATION IF NO KTll 




2755 


0l7l56 


001413 








BEQ 


J 1 






2756 


017160 


022700 


000400 






CI^P 


#400rRO 


(IF 8K OR GREATER, ALLOW CODE 


RELOCATION 


2757 


017164 


101010 








BHI 


1$ 


(BRANCH IF NOT 




2758 


Ol7l66 


013737 


ociiSS 


001220 




MOV 


HCORi2,orrMx 


(CALCULATE THE HIGHFST LOC TO 


WHICH 


2759 


017174 


163737 


001204 


001220 




SUB 


tcoRi2,orrMx 


(THE PROGRAM CAN BE RELOCATED 




2760 


017202 


105237 


001263 






INCB 


REIOC 


(ENABLE RELOCATION 




2761 


017206 


004737 


0)5016 




11! 


JSR 


PC.LOADWC 


(LOAD KORST CASE UNIBUS NOISE 


PATTERN 


2762 


017212 


000005 








PESET 




(TUPN OFF KTll IF I^ USE 




2763 


017214 








SETXTj 










2764 


017214 


005037 


000000 






CLR 





(CLEAR LOC 0, 




1765 





















OAED DEC/Xll SHORT MONITOR 
DXOABM.Plt 21-APP-77 12l42 



MACYU 27( 1006) 22-APP-77 12l53 PAGE 98 



SEQ 0252 



2766 










(MEMORY 


ADDPESS 


UP/DOWN TEST 




2767 


















2758 


017222 


023737 


001206 


001204 


TSTMEM( 


CMP 


HCOR12,LCOR12 


(ANY MEMORY TO TEST ? 


2769 


017230 


OOlOOl 








BNE 


5S 


(YES, CONTINUE 


2770 


017232 


000207 








RTS 


PC 


•NO, RETURN 


2771 


017J34 


013702 


001204 




58! 


MOV 


LC0R12iR2 


(LOSD 12 BIT LDCOPE ADDRESS 


2772 


017240 


013701 


001200 






HOV 


LOCOPE.Pl 


(Rl CONTAINS LOCORE PHYS ADDRESS 


2773 


017244 


012737 


017626 


000004 




MOV 


|N0HEM,4 


(LOAD TIME-OUT VECTOR 


2774 


017252 


105737 


001252 




1*1 


TSTB 


KTPPES 


(USF KT1 17 


2775 


017756 


001002 








BNE 


76 


(YES- BRANCH 


2776 


017260 


010100 








MOV 


Rl.PO 


(NO- SET VA EQUAL TO PA 


2777 


017262 


000404 








BP 


3( 




2778 


017264 


012700 


040000 




2Sl 


MOV 


«40000(RO 


(SET VA TO PAGE 2 


2779 


017270 


010237 


172344 






HOV 


R2,KIPAR? 


(MAP PAGE 2 TO PHYSICAL ADDRESS 


2780 


017574 


012703 


rt"nori4o 




3Sl 


MOV 


«32.«R3 


• CPIJNT 5 BtCCK 


2791 


017300 


010120 








MOV 


PI , (R03* 


(lOiO LOCATIOK WITH ITS ADDRESS 


2782 


017302 


062701 


000002 






ADD 


«2,P1 




2783 


017306 


005303 








DEC 


R3 




2784 


017310 


001373 








BNE 


4t 




2785 


017312 


005202 








INC 


R2 


(AFTER 1 BLOCK, UP PAGE ADDRESS FIELD 


2796 


nj7'» J 4 


090237 


001206 






CMP 


P2.-HC0P12 


}»T TOP? 


2787 


017320 


002754 








BLT 


11' 


■NO- CONTINUE 


2788 


017322 


005302 








DEC 


R? 


(YES- TEST GOING DOWN 


2789 


017324 


162701 


000002 






SUB 


»2,P1 




2790 


017330 


105737 


001252 




TSTMl : 


TSTB 


KTPPES 


(USE KTll? 


2791 


017334 


001002 








BNE 


1« 


(YES- BRANCH 


2792 


017336 


010100 








MOV 


Rl.PO 


(NO- LOAD VIRTUAL ADDRESS POINTER WITH 


2793 


017340 


000404 








BR 


28 




2794 


017342 


012700 


040076 




l$l 


MOV 


jt40076,R0 


(MAP VA TO TOP OF 1ST BLOCK IN PAGE 2 


2795 


017346 


010237 


172344 






MOV 


R2,KIPAR2 


(MAP PAGE 2 TO PA 


2796 


017352 


012703 


000040 




2t! 


MOV 


*32.>R3 


(COUNT 1 BLOCK 


2797 


017356 


011037 


001176 




311 


MOV 


f)PO,MEMWAS 




2798 


017362 


020137 


001 176 






CMP 


PI .MCMWAS 


(DOES LOCATION CONTAIN ITS PA? 


2799 


017366 


001120 








BNE 


MERP 


(NO- BRANCH 


2800 


017370 


162700 


000002 




4S| 


SUB 


12, RO 




2801 


017374 


162701 


000002 






SUB 


»2,P1 




2802 


017400 


005303 








DEC 


P3 




2803 


017402 


001365 








BNE 


31 




2804 


017404 


005302 








DEC 


P2 


(AFTER CHECKING 1 BLOCK, ADDRESS NEXT 


2805 


017406 


020237 


001204 






CMP 


R2,LC0R12 


(DONE? 


2806 


017412 


002346 








BGE 


TSTMl 


(NO- CONTINUE CHECKING 


2807 


017414 


013702 


001206 






MOV 


HCbR12,R2 


(YES- SET TO LOAD MEMORY 


2808 


017420 


010201 








MOV 


R2,R1 


(FROM TOP DOWN 


2809 


017422 


005302 








DEC 


R2 




2810 


017424 


006301 








A8L 


PI 




2811 


017426 


006301 








ASL 


Rl 




2812 


017430 


006301 








ASL 


PI 




2813 


017432 


006301 








ASL 


Rl 




2814 


017434 


006301 








ASL 


Rl 




2815 


017436 


005301 








DEC 


Rl 




2816 


017440 


006301 








ASIi 


Rl 




2817 


017442 


105737 


001252 




TSTM2J 


TSTB 


KTPPES 


(USE Kill? 


2818 


017446 


001002 








BNE 


11 


lYES- BRANCH 


2819 


017450 


010100 








MOV 


RI.RO 


(NO- LOAD VIRTUAL POINTER WITH 


2820 
















(PHYSICAL ADDRESS 


2821 


017452 


000404 








BP 


21 





OAtD DeC/Xit SHOUT NONtTOR 
DXOkBM.Pti ai«»PA-77 13143 



MACYtl STClOOft) 33*APII-TT tSiSI PASE 99 



SEO 0253 



3«33 


0174S4 


013700 


040078 




tti 


MOV 


*40076rR0 


jlOAD VIRTUAL WITH TOP ADDRESS OF 


3133 
















llST BtOCK IN PAGE 3 


3134 


017460 


010337 


173344 






MOV 


R3«KIPAR3 


(MAP PAGE 3 TO PHYSICAL 


asas 


017464 


01370J 


000040 




3ii 


MOV 


*33i>R3 


■COUNT A BLOCK 


3836 


017470 


010110 






3tl 


MOV 


R1,«P0 


ILOAD LOCATION WITH ITS PHYS ADDRESS 


3837 


017472 


005110 








COM 


•RO 


, COMPLEMENT IT 


3838 


017474 


163701 


000003 






SUB 


*3>R1 




3839 


017500 


163700 


000002 






SUB 


12, RO 




3830 


017504 


005303 








DEC 


R3 




3831 


017506 


001370 








BNE 


31 




3833 


017510 


005303 








DEC 


R2 


» AFTER LOADING A BLOCKi SET UP FOR NEXT 


3833 


017512 


030237 


001204 






CMP 


P2,!jCOR12 


(DONE? 


3834 


017516 


003351 








8GE 


TSTM2 


»N0- BRANCH 


383S 


017530 


005203 








T»C 


R2 


J YES- SETUP TO CHECK IT 


3836 


017522 


063701 


000003 






ADO 


02, PI 




3837 


017536 


010104 








MOV 


R1.R4 




2838 


017530 


105737 


001252 




TSTMSi 


T8IB 


KTPRES 


}USE KTH7 


3839 


017534 


001003 








BNE 


18 


jYES- BRANCH 


3840 


017536 


010400 








MOV 


R4,R0 


SSET VIRTUAL ADDRESS EQUAL TO PHYS ADDRESS 


2841 


017540 


000404 








8B 


21 




2843 


017542 


013700 


040000 




Itl 


MOV 


*40000>R0 


•SET VIRTUAL ADDRESS TO START OF PAGE 2 


2843 


017546 


010237 


172344 






MOV 


R2,KIPAR2 


J MAP PAGE 2 TO PHYSICAL ADDRESS 


2844 


017552 


012703 


000040 




2*1 


MOV 


«32,,K3 


jCOUNT A BLOCK 


2845 


017556 


011037 


001176 




3(1 


MOV 


»RO>MEHWAS 




2846 


017562 


010401 








MOV 


R4,R1 




2847 


017564 


005101 








COM 


Ri 




2848 


017566 


020137 


001176 






CMP 


R1,MEMWA8 


jDOES LOCATION CONTAIN COMPLEMENT OF ITS PHYS 


2849 


017572 


001016 








BNE 


MERR 


J WO" BRANCH 


2850 


017574 


005720 






411 


TST 


CRO) + 




2851 


017576 


062704 


000002 






ADD 


«2.R4 




3852 


017602 


005303 








DEC 


R3 




3853 


017604 


001364 








BNE 


38 




3854 


017606 


005202 








INC 


R2 


{CHANGE 12 BIT ADDRESS AFTER CHECKING A BLOCK 


3855 


017610 


020237 


001206 






CMP 


R2,HC0R12 


JDONE? 


3856 


017614 


002745 








BLT 


TSTM3 


J NO- BRANCH 


3857 


017616 


013737 


013516 


000004 




MOV 


*BUSERR,4 


J RESET THE TIME-OUT TRAP VECTOR 


3858 


017624 


000207 








RTS 


PC 


»YES- RETURN 


3859 
3860 


017636 


023636 






NOMEMi 


CMP 


tSP)+.CSP)+ 


jPOP THE STACK POINTER TWICE 


2861 


017630 


012737 


013516 


000004 


MERRi 


MOV 


«euSERR,4 


(RESET THE TIME-OUT TRAP VECTOR 


2863 


017636 


105237 


001303 






INCB 


MEMtPF 




3863 


017642 


010037 


001164 






MOV 


RO.MEMVA 


(SAVE FAILING ADDRESS 


3864 


017646 


104413 


001164 






GETPAti 


iMEMVA 




2865 


017652 


010137 


001174 






MOV 


R1,MEM8BE 


jSAVF EXPFCTED CONTENTS 


3866 


017656 


01 J746 


001166 






MOV 


MEMPA,-(SP) 


(CONVERT PHYSICAL ADDRESS TO ASCJT 


3867 


017662 


013746 


001170 






MOV 


MEMEA«-{8P) 




3868 


017666 


004537 


011534 






JSP 


R5,0ACNVX 




2869 


017673 


016103 








MERR2 






2870 


017674 


013746 


001174 






MOV 


MEMSBE,-(8P) 


(CONVERT SHOULD BE TO ASCII 


2871 


017700 


004537 


011512 






JSR 


P5 ( OACNV 




2872 


017704 


016115 








MEPR3 






2873 


017706 


013746 


001176 






MOV 


MeMWAs,>(SP) 


(CONVERT WAS VALUE TO ASCII 


2874 


017712 


004537 


011512 






JSR 


R5,0ACHV 




2875 


017716 


0161 30 








MCRR4 






2876 


017730 


004537 


013174 






JSR 


R5,T0P12S 


(GET NEW HIGH CORE VALUE 


2877 


017724 


001166 








HEMPA 







OAED DEC/XU SHORT MONITOR MACYll 27tl0063 22-APR-77 12(53 PAGE ICO 

OXOABM.PIl 21-APR-77 12|42 SEO 0254 

2878 017726 013737 001172 001206 MOV HEM12,HC0P1? 

2879 017734 042737 000007 001206 BIC i7,HC0R12 

2880 017742 162737 000040 001306 SUB i4o»HCOP12 

2881 017750 000207 RTS PC 



QAED DEC /XI t SHORT NONITOA 
DXOABM.PIl 31>APR*77 131*3 



HACYll aiClOOS) aa-APR-77 13153 P*SE 101 



SEQ oass 



QArD DEC/XII SHOPT MONXTOP 



MACYll 27(1006) 22-APB-77 12>53 PAGE 103 



DXOABM.PH 2j-iPR.77 


12142 




CROSS 1 


PEFERFWCE 


TABLE " 


USER 


AAT 


014132 




2409t 












ACBLF » 


014155 




874 


889 


892 


1210 


1224 


2413* 


ACSR * 


000052 




1681 












ACSPAC 


015653 




852 


2619* 










ACSRC 


015667 




846 


2622* 










ADDRHI 


001044 




265« 


1758» 










AODRtO 


001042 




264* 


1703 


1757* 








AOPCRB 


01 1062 




1755 


1762* 


1780 


1782 






ADTEBR 


0)5714 




865 


2627* 










ADTEX 


016026 




872 


2642* 










ADTE2 


015750 




784 


820 


2632* 








ADTEJ 


015735 




782 


822 


2630* 








ADTE4 


016002 




773 


828 


2638* 








»DTe4A 


016012 




864 


2640* 










ADTE? 


015765 




780 


834 


2635* 








ADTE6 


015722 




762 


840 


2628* 








ADTE7 


016034 




790 


2643* 










AEND 


015541 




696 


857 


919 


943 


991 


2601* 


AENDl 


015553 




917 


2603* 










AeND2 


015566 




915 


26051 










AERCT 


016153 




729 


2659* 










AERNM 


016140 




726 


735 


2657* 








AERNMB 


016052 




756 


816 


2646* 








AEPROP 


015645 




868 


2617* 










AERRS 


015500 




1640 


2592* 










AERTOT 


P16205 




732 


2664* 










ALCLR 


001332 




386t 












ALl<BK 


001322 


G 


371 


380* 


511 


952 


962 




AMpST* 


015442 




1634 


2586t 










AMODNW 


015414 




333 


1628 


1644 


1813 


1817 


1862 


APASS 


015606 




923 


2609* 










A PC 


015426 




1631 


2584* 










APCLR 


001334 




387* 












APSCNT 


015461 




J637 


2589* 










APSEND 


015627 




992 


2613* 










APTGALb 


•»•••• 


U 


1 


27 


28 


30 


207 


307 








2400 


2406 


2764 








ASB a 


000056 




172* 


1047 


1409* 


1429* 






ASTAT ■ 


000054 




170* 












ASTATC 


015704 




844 


3625* 










ATE 


001310 




370* 


1879» 


1882* 


1885* 


1894 


1907 


ANAS ■ 


000060 




173* 


1045 


1062 


1408* 


1428* 




BDCNV 


011744 


e 


33* 


728 


731 


755 


789 


815 








2326 












BITO ■ 


000001 




132* 


1917 


1928 








BITJ ■ 


000002 




131* 












BITIO « 


002000 




122* 


530 


54C 


1406 


1539 




BITll ■ 


004000 




121* 


530 


535 


1535 






BIT12 ■ 


010000 




130* 


530 


549 


954 


983 


1545 


BIT13 ■ 


020000 




119* 


625 


689 


733 


853 


939 


BIT14 « 


040000 




118* 


628 


898 


1539 


1623 


1665 


BITIS ■ 


100000 




117* 












B1T2 ■ 


000004 




130* 












BIT3 ■ 


000010 




129* 












BIT4 ■ 


000020 




1281 












BITS ■ 


000040 




127* 













25S2t 2683 



1938* 



932 



1004 
1670 



1636 



1531 



1639 



1520 



19391 2317 



2323 



OAED DrC/Xll SHOPT MnNITHR 
DXQABM.pil 21-»PB»77 J2|42 



BIT6 ■ 


000) 00 




1261 


BIT7 ■ 


000200 




1 25* 


eiT9 ■ 


000400 




1 24» 


BITS ■ 


001 000 




1 23 (t 


BKCNT 


001025 




2501 


BKPTR 


OOt2S0 




3391 


BKQSVC 


002622 




502 


BKQUE 


001012 




2 39# 


BKTIHE 


001 304 




365* 


BKTIMR 


001034 




259* 


BPSCNT 


01SS36 




986 


BRAKE 


001013 




240t 


BREAKS* 


1 04407 




615 


BREAK . 


003136 




617 


BUFSIZ' 


01 4000 




2683* 


BUSERP 


012516 




189 


BUSGV 


000004 




199* 


CADDP 


001 372 




413 


CAST > 


•••••• 


Q 


36* 


CCSRA 


001 1 44 




298* 


CDATA$» 


1 0441 4 




2115* 


CDATA t 


006626 




1 363* 


CDATAl 


0066S2 




1 369* 


CDERR 


00) 376 




419* 


CDERRi 


001400 




420* 


CDFLG 


001142 




297 * 


CDRET 


007202 




421 


CHKHl 


001 350 




400* 


CHKH2 


001 340 




396* 


CHKLl 


001346 




399* 


CHKL2 


001 336 




395* 


CHKSUM 


001 342 


G 


35* 


CHN 


001260 




347* 


CHHOUT 


012722 




1 252 


CKCOMT 


006632 




1362 


CLnCK 


001 321 


G 


34* 


CLOCKL 


001324 


G 


33* 


CLOCKP 


001 326 


G 


33* 


CLROUS 


012272 




446 


CLBVEC 


0123S4 




462 


CLR40 


014431 




458 


CNTt 


001 307 




369* 


C0HC01 


007364 




1460 


COMCOl 


007360 




1470 


C0MC02 


007364 




1 489* 


C0MC03 


007374 




1243 


C0MC04 


007400 




1493* 


COMOUE 


001362 




413* 


COHTAB 


015232 




1 463 


CONVRT 






1880 


CR 


014)25 




993 


CRCR 


0J4127 




695 


CSRA ■ 


000050 




1671 


CSTABT 


001 374 




416* 
1480* 


CTRLC 


014153 




1274 



OAED DEC/X11 SHORT MONITOR 
DXQABM.pil 21-»PP-77 12142 



CTPLCA 


006136 


1168 


CTRLCB 


006142 


973 


CTPtCD 


006224 


1246 


CTRl,X 


006230 


1239 


CXPET 


0O1242 


336* 


OATCKS» 


104417 


2121* 


DAICK, 


006616 


1361* 


DATER$> 


104405 


2101* 


DATFLG 


00)315 


375* 


DDPPTP 


000042 


206* 


DECODE 


007230 


1225 


DECVAL 


016230 


1941 


DERRCT 


001 114 


286* 


DERRXSB 


104421 


419 


DERRX. 


003244 


674 


DERRXl 


003312 


751* 


DES 


010440 


1655* 


DIRA 


0)0274 


1251 


DIRTND 


OOIOlt 


238* 


DOT 


014122 


466 


DSTADR 


001054 


269* 


EHTV 


000030 


200* 


ENDCO" 


004314 


693 


ENOPS$» 


104402 


2095* 


ENDSVA 


004446 


901 


END5VB 


004604 


965 


ENOSVC 


004440 


673 


ENOSVD 


004622 


961 


END5VE 


004474 


947* 


ENDSVF 


004610 


959 


ENDSVG 


004550 


953 


END$ ■ 


104403 


2097* 


ERCNT ■ 


000030 


159* 


GRRIND 


001017 


244* 


ERPIilM 


001234 


332* 


ERRNMB 


016044 


859 


ERRKS ■ 


104410 


2107* 


GRRORia 


104404 


2099* 


ERRPbS 


0O114O 


296* 


ERR8VC 


003S24 


673 


ERSVCA 


003532 


796 


ERSVCB 


003600 


808 


ERSVCC 


003604 


811* 


ERSVCl 


003516 


673 


ERSVC2 


003506 


674 


ERSVND 


004222 


737 


ERSVX 


004014 


791 


EXITt ■ 


104400 


2091* 


EXIT. 


005030 


1033* 


EXITl , 


005032 


1020 


EXIT2. 


005066 


1635* 


FAKGSR 


001004 


232* 


FILCNT 


001354 G 


36* 


FILCTR 


001Q30 


24S* 


FILL 


010566 


1696* 


FILLER 


001255 G 


36* 



MACyll 27C10065 22-APR-77 13|S3 PAGE 104 

CROSS REFERENCE TABLE » USER SYMBOLS 



SEQ 9357 



144 








teas 








_ 

1 00 2 








960 




1544* 




442* 


54B# 


596 


1513* 


647 1 








1015 








10l2» 


1015* 






3615* 








509 


547* 


949* 


967 


210!* 








715* 








3135* 


2744 


2857 


2961 


434 


436* 


441* 




415* 


667* 


708* 


721* 


311 








8 36# 


948* 


900* 


903 


2114 








) 449 








14)4 








) 369» 


1 370* 


1413 




1 365* 


1369 


1446* 




1 444 * 








2696* 








2696 








2695» 








2695 








397 * 








467 


522 


997 


1 245 


2177 


2)81* 






1365* 








379* 








382* 








383* 








461 


1 262 


1268 


1515 


1514 


2062* 






24 48 * 








1 496* 


1599 


1618 


1666 


1487* 








2578 








1492* 


1676 


1682 


1690 


1 499 








712 


908 


1007 


1493 


2539* 








1999* 








1250 


2407* 






856 


943 


990 


2408* 


906» 


1090 






696* 


698 


709* 


724* 


2343» 








24l4» 









1001* 1272* 2150* 2173* 



743* 

906 



904* 
907» 



990* 1479* 



2181 2191 27)8* 2739 



1722 2163 



991* 1257* 126)1 



MACYll 27C1006) 22-APB-77 12)53 PAGE 1^5 

CROSS PEFEPENCE TABLE USER SVmbOIS 



1237* 




1238* 




1352* 




1254* 


2)46 


2130 




1361* 


1363* 


1453* 




2668* 




1366* 


1399* 


2125* 




741* 




753 




2550 




1617 


1630* 


16)5* 


1625 


1492 


1592 


556* 


558* 


749 


806 


939* 




969* 


1553 


937* 




966 


969 


998 


1006 


971* 




960* 


3343 


754 


807* 


741* 


795* 


896 




3645* 





1399* 1403* 1404 



1641 

2159 2406* 
620* 623 



716* 14?2* 



909* 
797* 



914 
799* 



896 
801 



1424* 
817 



1 427* 

961 



1527* 
870 



1636 
976 



764* 


765* 


766 


799* 






798 


800* 




810* 






913 






797* 






795* 






854 


877 


894* 


841 


853* 




1091 


2090 




1034* 


1096 


1159 


1051 


1073 


1101 


439 


451 




343* 


1346 


1719 


1346* 


1348* 


1352* 


3556 






344* 


1349 
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8GQ 0259 



FILLID 


001272 




354i 


1 491* 


1696* 


1720 


riLLNH 


01 1206 




725 


9l8 


1627 


1798* 


SETADR 


011022 




1701 


1750* 






GETNAH 


01 123* 




1661 


1698 


1609* 




GETNUM 


Oil 070 




1710 


1750 


1768* 




GETPAfs 


1 0441 3 




924 


830 


909 


2113* 




01 3770 




2112 


23741 






GtOK 


007272 




1 46 Jt 








GTpKX 


007276 




1 464* 








GTOK 3 


007 300 




1465* 


147 3 


1475 




GTOKJ 


007322 






14741 






GWBUFf s 


1 04412 




2 1 1 1 * 








GWBUF « 


01 3646 




2110 


2346# 






HApDSR* 


177570 




7 7 i 


435 






HCORSV 


001210 




321# 


2749# 






HCORl 2 


001206 


G 


3 3 i 














B9 


2807 


2655 


2876* 


HLT 


014620 






1144 


2064 


2469* 


HMS 


01 3424 


G 


3 4 • 


2288 • 






HNGFLG 


001 312 




372t 








HNGTIW 


001 330 


6 


35i 


3851 






HOLDS 


01 5507 




2318 


23l9 


2320 


3323 


H0LD6 


015515 




664 


885 


1729 


17 30 


H0L06 


015526 




1737 


1738 


2599* 




HOP 


05 1540 




» = o J 


1SE7» 






HOURS 


001 353 


G 


34# 


402f 


2319* 


2320* 


HUHGCK 


013622 


G 


354! 


2338* 






IE « 


000100 




14411 


475 


1 197 


1246 


INIT » 


000022 




1561 


556 






INPUT 


001650 




468 


472* 


1493 


1584 


INVSDP 


014864 




1762 


2441* 






IMVCDl 


014304 




1 459 


2431 » 






INVCD2 


014322 




2434* 








INVCD3 


014334 




2436t 








IN VCD 4 


01 4346 




1588 


2438 i 






INVCMD 


014272 




Joel 


2429* 






1 n V ri n n 


014403 




1851 


2444* 






INVTRP 


01 4223 




2083 


2422* 






Z08K X D 


001 060 




27 1 # 
2 1 49* 


490 
2171* 


515* 


524* 


lOQ 


016606 




149 


609 


1142 


1148 


lOOL * 


000310 




146* 


149 


2055 


2679 


lOOLT^* 


017116 




1 49# 


607 


1 146 




lOOSVA 


002522 




6 25 # 


653 






lOQS VB 


002604 




6411 








lOQSVC 


002424 




469 


607* 






lOOSVD 


002570 




635 K 


1442 






lOQSVF 






563 


622 


624* 


7 1 7 


lOOSVN 


002500 




414 


620* 






lOOUF 


001006 




23S* 


497 


610* 


1016 


1001 


001074 




277» 


1140 


1142* 


1146 


1002 


001076 




278* 


607 


609* 


6)1 


lOTV 


000020 




195« 








ITOA 


011000 




1706 


1708 


1742* 


2152 


ITOAX 


010710 




1725# 


2275 






ITQAS 


nto?44 




1733* 









2228 
2679* 



2324 
1744 



2263 
2860* 



2327 
1745 



2500 



2326 
2597* 



2716* 2745* 2748 



2768 



531 

2050 



1138 
U46* 
612* 



542 
2679* 



564 
2668 



566 



591* 1558* 



1150* 
1149* 
1140 



2045 2046 
1151* 2051* 
2052* 
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SEO 0260 



ITOUT 


011016 




1731 


1739 


1746* 










KBOFLO 


014416 




1229 


2446* 












KBPTB 


001036 




262* 


469* 


474* 


1174 


1 193* 


1194* 


1204 








1462 


1481* 


1768 


1793* 


1809 


1857* 


1869* 


KBSRVC 


005644 




214 


1164* 












KBUF 


016305 




474 


1174 


1204 


1211 


1216 


1223 


2674* 


KBUFL « 


000040 




145» 


1174 


2675 










KIPAROb 


172340 




101* 














KIPARla 


172342 




102* 














KIPAP2a 


172344 




103* 


2507* 


2779* 


2795* 


2824* 


2843* 




KIPAR3« 


172346 




1041 














KIPAP7* 


172356 




105» 














KIPDPO" 


172300 




96* 














KIPDRl" 


172302 




97* 














"KI>D"RJ» 


r72'3'04 




98* 














K1P0P3» 


1 72306 




99* 














K1PDR7* 


1 72316 




100* 














KTOFF 


010522 




1676* 


2559 












KTON 


010522 




1675* 


2562 












KTDNM 


014740 




2485* 




















37* 


340* 


il C 4 




3"04 




2719 


KTTEST 


017006 




2717 


2719* 












KWllL s 


•••»*• 


G 


34* 


382 












KWllP ■ 


••••** 


G 


34* 


363 












KYBDV 


000060 




214* 














LCLEAPa 


•»**•• 


G 


35* 


386 












LC0P12 


P01 204 


G 


33* 


318* 


1594 


2498 


2713* 


2715* 


2750 


LOBSK, 


005460 




U24I 


2104 












LOTOO 


005474 




1125 


1133* 












LDTYPQ 


005350 




1041 


1044 


1046 


1048 


1055 


1058 


1060 


LOADWC 


015016 




465 


2497* 


2761 










LOCK 


001375 




357* 


1505* 


2201 


2232 








LOCORE 


OOljOO 




316* 


443 


1593 


2260 


2502 


2703* 


2706* 


LOGIC 


012752 




206 


2188* 












LOGICA 


012762 




2176 


2190* 












MAP 


010254 




I615i 


2553 












MAPREGa 


170200 




82* 














MAPRET 


001232 




331* 














MAP22Sa 


104415 




2117* 














MAP22. 


0140J2 




2116 


2396* 












MDIRE 


015450 




1616* 


1643* 


2587* 










MDL45 


001301 




362* 


2699* 












HOXCNT 


001023 




247* 


551* 


576* 


590 


956* 


2223 




HDXCTR 


001021 




246* 


448* 


571* 


590* 


2213 


2219 


2323* 


MED a 


076600 




63* 














MCHCHG 


014576 




2255 


2466* 












MEMEA 


001170 




312* 


2867 












MEMERF 


001303 




364* 


2252 


2256* 


2962* 








MEMPA 


001 166 




311* 


2866 


2877 










MEM8BE 


001174 




314* 


2865* 


2870 










MEMVA 


001164 




310* 


2863* 


3864 










MEMWAS 


001176 




315* 


2797* 


2798 


2645* 


2848 


2873 




MEM 12 


001172 




313* 


2878 












MERR 


017630 




2799 


2849 


2861* 










MERPl 


016061 




2254 


2648* 












MERR2 


016102 




2651* 


2869 













1222* 1223* 



2833 



1086 1094 1099 1103* 



27S2* 2714* 2772 
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SEQ 0361 



HERR) 


OlSltS 


3653* 


3873 
























HERR4 


016130 


2659* 


3B75 
























HFLAG 


001311 


371* 


























MINIT8 


001 396 


403* 


2334» 
























HOO 


010574 


1697 • 


3944 
























NODADR 


001 133 


369* 


631* 


1035 


1043 


1056 


1070 


1434 














MODCNT 


OOlOlS G 


37* 


343* 


957* 


960 


964 


97 1 


1541* 


1549 


1595 


1 573 


1576 






MODCTR 


001016 G 


37* 


343* 


530 


563* 


1555* 


















HpDEND 


015615 


944 


36 1 1 * 
























MODPTR 


001040 


363* 


926* 


537 


548 


596* 


599* 


649 


1557* 


1664 


1704 


1811* 


1868* 




HDDO 


016236 G 


33* 


442 


599 


1513 


151 ' 


1557 


1620 


1667 


1959 


3673* 








MORE 


007314 


14711 


























HpVBNK 


001330 


330* 


























MOVFLC 


001313 


373* 


























MOVING 


001 373 


355* 


























MSCONT 


003010 


683 


685* 
























MSGD^ ■ 


104433 


1433 


213'* 
























MSGD, 


003150 


674 


731* 
























MSGDl • 


003340 


734 


737i 
























MSGPliG 


001314 


374* 


681» 


68 3* 


691 




















MSGN^ s 


I 04411 


2109* 


























MSGN , 


003004 


674 


683* 
























HSGSf ■ 


104416 


3119* 


























MSGS, 


003774 


674 


681 * 
























MSGI ■ 


1 04406 


450 


493 


458 


466 


1 1 1 1 


1112 


1 1 43 


1 144 


1 196 


1310 


1 224 


t 229 


1 249 






1250 


1274 


1459 


1487 


1 493 


1992 


1588 


1644 


1689 


1730 


1 738 


1745 


1762 






1851 


2083 


3084 


3103* 


2151 


3159 


3173 


2254 


2255 


2259 








HSGi, 


00311 


674 


7071 
























H8G1 . 


003136 


690 


702 


711* 






















MVCODE 


014o60 


460 


1240 


1596 


33971 




















HVDOWN 


001376 


359* 


























HXWBF 


001336 


333* 


1600* 


1603* 


1604* 


1605* 


1606* 


1 607* 


1608* 


1609* 


1611* 


2354 


2356 




NEW ■ 




38 


153 


310 


333 


754 


601 


807 


B14 


842 


876 


896 


1010 


1 424 






1527 


1638 


3093 


2097 


2105 


3494 


J589 


2625 


2645 










nomeh 


017636 


2773 


2860* 
























NOSHR 


01 4756 


453 


2488* 
























NSTOP 


001330 


378* 


582# 


1559* 


3305 


3334 


















NUHBEA 


001052 


368* 


836 


833 


911 




















NUMBER 


001 046 


366* 


666* 


748* 


833* 


834 


839* 


830 


909 


913 










NUMBPA 


001050 


267» 


825 


831 


910 




















OACNV 


011512 G 


33* 


781 


783 


819 


831 


843 


845 


883 


914 


1630 


1633 


1743 


1 878» 






2871 


3874 
























OACNVX 


01 1534 


761 


772 


779 


837 


833 


939 


851 


916 


1 728 


1882i 


2868 






OACNVB 


01 1533 


1736 


1889* 
























OASCEA 


001113 


384* 


1978» 


1887* 


1909 


1919 


1924 
















pFFMX 


001330 


325* 


2798* 


3759* 






















OFFSET 


001333 G 


35* 


326* 


533 


537 


1533 


1537 


1551 


1595 


2226 


3499 








OFFSTD 


001334 


327* 


459» 


1339* 


1506* 


1585* 


















OFFSTM 


001326 


328* 


























OPEN ■ 


000000 


116* 


205 


309 


210 


333 


335 


736 


237 


238 


239 


240 


241 


242 






243 


244 


245 


246 


247 


348 


349 


250 


351 


252 


253 


254 


256 






258 


259 


360 


262 


263 


364 


265 


266 


2ft7 


268 


269 


27n 


271 






272 


273 


374 


375 


276 


377 


378 


279 


280 


281 


382 


2«3 


284 






386 


297 


388 


389 


290 


391 


392 


293 


294 


295 


296 


297 


298 






310 


311 


313 


313 


314 


3J5 


316 


318 


3'9 


321 


323 


324 


325 






336 


327 


338 


330 


331 


335 


336 


337 


338 


339 


340 


345 


346 
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DXOABM.Pl] ?i«APP 
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CROSS REFERENCE 


TABLE " 


USER sywpoLs 















PASEND 004626 
PASREL 001033 G 
PASTOT 001032 
PCLEARw •»•»*• G 
POP70 ■ »**•*» U 



PIRORG> 
PIROe ■ 
PIRO. 
POFF 

PON 

POPSP ■ 

P0P8P2" 

PPRES 

PRTY4 ■ 

PRTY5 » 

PRTY6 • 

PRTV7 ■ 

PS ■ 

PSCNT ■ 

PSENDA 

PSENDB 

PSH ■ 

PUSH ■ 

PU8H2 ■ 

PHRCNT 

PWRDN 

PNRFAI 

PWRFV 

PHRUA 

PWRUP 

OOVRFL 

QT8TA 

OTSTB 

QT8TC 

OUECNT 

OUECTR 

OUETST 

QUE* ■ 

QUE. 

RANDf ■ 

RAND. 

RANNUM 

RANHRK 

RBUFEAb 

RBUFPAB 

RBUFSZ* 

RBUFVAa 

RDCOA ■ 

RDFGINa 

RDPBA ■ 

ROSERV" 



177772 
000004 
005510 
010522 
010522 
005726 
022626 
001306 
000200 
000240 
000300 
000340 
177776 
000026 
004714 
004766 
177776 
005746 
034646 
001246 
012636 
014594 
OOO034 
013713 
013646 
014197 
001760 
001773 
003004 
001300 
001037 
001703 
104401 
005470 
104430 
013066 
001160 
001163 
000070 
000066 
000073 
000064 
000103 
000104 
000103 
000101 



347 


348 


349 


350 


351 


354 


355 


356 


357 


358 


359 


362 




364 


368 


369 


370 


371 


372 


373 


374 


375 


377 


378 


380 


403 


404 


415 


416 


420 




















673 


979# 
























37# 


358t 


1572* 


1573* 


J574* 


1575* 


1578* 














356* 


























35* 


387 
























1 


37 


28 


30 


353 


446 


4150 


760 


834 


909 


916 


1240 


iste 


1586 


1593 


2027 


2141 


2158 


7215 


2226 


2383 


24f>0 


2406 


2463 


2498 


2513 


3576 


2603 


2619 


2628 


2635 


2651 


7748 


2763 


2864 


2868 








91* 


























115* 


436 


1170 






















195 


1137* 
























J674* 


2568 
























1673* 


2565 
























141* 


1049 


1061 


1089 


1095 


1100 


1169 


1199 


)2Pq 











142* 
368* 
137» 
136* 
139* 
134* 
75* 
158* 
984 

1000 
76* 
139* 
140* 
37f 
199 

2173 
1981 

2160 

2164 

nil 
499 
493 

491 
360* 
293* 
480* 
1239 
1129* 
3133* 
1977* 
36* 
309* 
177* 
176* 
178* 
179* 
BS* 
87* 
89* 
14* 



217 



559 930 
995 996* 
10071 



338« 
433 
3463* 
433* 
31741 
31661 
1143 
497* 
498 
901 
47« 
476* 
904 
3093* 
3093 



1508* 
3163* 



3122 

308* 1979 
1979 1998* 



196 
982* 



2168* 
2166 



2164* 2166* 



3419* 

900* 
903* 
489 

480* 485* 
510 519 



t99 
986 



315 
1526* 



1133 
1635 
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SEQ 0263 



RDWHMI« 


000022 


ee» 














RELQC 


001963 S 


37» 


350* 


2230 


2702* 


2760* 






RESIA 


012530 


2136 


2138* 












RESINT 


012524 


191 


2137* 


2698 










RESIV 


OOOOlO 


1911 


2689» 


2698* 










RETRY 


001277 


359« 














RLOOP 


012106 


1981* 


1997 












RMODE 


001257 


3461 


447» 


503 


1241 


1244* 


1259 


1457 


ROT 


001033 


2601 


2366* 


2368* 










ROTBUF 


013000 


2197t 


2369 












ROTBl 


013170 


2230t 














R0TB2 


013226 


2229 


2239* 












R0TB3 


013252 


2231 


2233 


2244* 










ROTCHK 


013262 


454 


1681 


2253* 










H0TC1T 


001264 


351t 


1273* 


1688* 


2203» 


2208* 






aOTCT 


001031 


2541 


1562* 


:564» 


1565* 


1566* 


1567* 


1570* 


BOTDIS 


014700 


1669 


2479* 












ROTENB 


014630 


2259 


2471* 












BOTI 


001261 


348* 


1560 


2197 


2257 


2701* 


2753* 




ROTL 


001262 


349* 


449* 


1680* 


1687» 


2199 


2211 




ROTN 


001305 


366* 


2368 












ROTNUM 


nnl266 


352* 


1273 


1688 


2208 








ROTorr 


010542 


1687* 


2575 












ROTON 


010526 


1680* 


2571 












botsiz 


O0127O 


j53» 














ROTXT 


013260 


2198 


2204 


2210 


2212 


2214 


2222 


2238 


RSTAT 


001066 


274* 


624» 


641 


e4e« 


1439* 






BSTPT » 


000062 


174* 


558 


980 










R8T04 


0)2256 


1482 


1931 


1960 


2000 


2037* 


2330 


2515 


RTTKt ■ 


104423 


2129* 














RTTK. 


012056 


1967* 


212S 












RTTl 


002620 


644* 


2694» 












RUN 


O07420 


470 


1505* 


2541 










RUNC 


007664 


1521 


1549* 












BUND 


010102 


1552 


1585* 












RUNRCS 


007476 


970 


1515* 


2194 










RUNPrL 


001274 


356* 


554 


1511* 


2169* 








RUNSVC 


002012 


509* 














SAVHI 


001 120 


288* 


2262* 


2272* 


2274 








SAVLO 


001116 


287* 


2263» 


2264* 


2265* 


2266* 


2267* 


2368* 


.AV04 


012244 


1367 


1445 


1461 


1889 


1939 


1977 


2029* 


IBADR > 


000052 


169* 


1 373» 












li^KNOS 


001360 


404* 


2328» 












II L 


010422 


1649* 


2547 












;i TBUF 


016606 


445 


2689* 












It TCMl 


017120 


2746* 














II TCOM 


017106 


2740 


2742 


2744* 










II TKT 


017106 


2720 


2743* 












If TMBF 


010126 


1579 


1592* 


2244 










IE TUB 1 


010166 


1597 


1600* 


2242 










IFTXT 


017214 


2707 


2752 


2763* 










IHOPT ■ 


000000 


1 


28 


146 


222 


286 


307 


340 






940 


969 


977 


983 


989 


996 


998 






1395 


1400 


1408 


1418 


1504 


1509 


1511 






7026 


2062 


2070 


2137 


21 46 


2148 


2159 






2247 


2248 


2262 


2278 


2335 


2359 


2344 



1512* 1522 



1583* 1587* 2175 



3247* 



2269* 
2288 



2270* 
2497 



2273 



379 
999 
1516 
2163 
2373 



405 
1241 
1592 
2175 
2397 



446 

1250 
1598 
2178 
2400 



455 

1252 
1613 
2190 
2429 



549 855 

1269 1384 

1673 1691 

2227 2230 

2463 2471 
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2539 


2576 


2582 


2617 


2673 


2675 


2681 


2699 


111 PUT 


007404 




1497* 


1709 














it) S 


010454 




1651 


1660* 














iLI SA 


010454 




1661* 
















itl SB 


010470 




1 509* 


1649* 


1655* 


1665* 










ILtSC 


010502 




1662 


1667* 














ILt SD 


010506 




1668* 


1671 














iLtSE 


010512 




1510* 


1650* 


1656* 


1670* 










ILtSL 


010476 




1663 


1666* 


1669 












l«CDE » 


"40000 




94* 
















iPeoT 


016546 




432 


472 


1237 


2145 


2158 


2167 


2676* 




IPCFLG 


OOlOlO 




237* 


1453 


1455* 


1489* 


1498* 








JPCINTe 


000024 




157* 


553 














IPAAV 


001136 




295* 


632* 


1034 


1050 


1072 


2338 






IPGPEC 


016606 




2140 


2148 


2678* 












IB 


001 156 


Q 


36 > 


307i 


435* 


437 


439* 


451 


689 


733 


IRETBN 


001 056 




270* 


1456 


1497* 












ISRO ■ 


177572 




79* 


2186* 














iflR3 « 


172516 




80* 
















START 


001414 




227 


229 


322 


333 


397 


431* 


2193 


2683 


i"»T * 


010020 




i34> 


5z5 


535 


540 


5 45 


524 


625 


623 








1004* 


1439 


1528* 


1529 


1531 


1535 


1539 


1542 


ITATl » 


000021 




155* 
















ITBF* 


01ft672 




2701* 
















»TOP 


001024 




249* 


513 


518 


950 


958 


2207* 


2209 


2236* 


IIIMARY 


014136 




1249- 


2410* 














IVBO ■ 


000032 




160* 


1026 


1374 












IVRl ■ 


000034 




161* 
















!VR3 « 


00003S 




163* 
















iVR3 ■ 


000040 




163* 
















)VR4 ■ 


000042 




164* 
















IVRf » 


000044 




165* 
















IVRl ■ 


000046 




166* 


553* 


633 


1071* 


1431* 


1441 






lYSI NT 


001244 




337* 


1507* 


2147* 












lYSI PI 


O01256 




345* 


473* 














mi PR 


014512 




2151 


2457* 














fist TM 


«01316 




376* 
















r»Bf OR 


001064 




273* 


685* 


699 


803* 


878 








(EN) WB 


012044 




1942 


1963* 














rrLj G 


001317 




3771 
















fiTI E 


O14062 




450 


2400* 














rKB 


001 150 


G 


36* 


304* 


1165 


1176 










rics 


001146 


r. 


36* 


303* 


475* 


1164* 


1197* 


1248* 


2046 




ropus 


012174 




2008* 


2708 


3876 












rpB 


001154 


G 


36* 


306* 


1356* 












TPS 


001152 


G 


36* 


305* 


1299* 


1330* 










rRAix « 


OO0024 




2087* 


2091* 


3093* 


3095* 


2097* 


2099* 


2101* 


2103* 








2115* 


2117* 


3119* 


2121* 


2123* 


3125* 


2127* 


2129* 


TBCJ 


004772 




193 


1012* 














rpcji 


005000 




1014* 


1017 


3693* 












TRCJB 


005016 




1018* 
















rscic 


005002 




1013 


1015* 














rBcic 


001070 




275* 


500 


647 


650* 


1018* 








mcisM 


001072 




376* 


646 


1019* 














000014 




193* 
















r»p)NT 


012404 




202 


2074* 















2748 



1545 



vol 
1623 



1632 



2105* 3107* 3109* 3111* 2113* 
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SEO 0265 





012516 


2079 


2129* 










01 2446 


2076 


306 B # 










000034 


202 • 












Oil 000 




2078 


ZOBfi 






rST^ EM 


017232 




2766 • 










01 7330 


970fti 

|: - 


28 06 








rSTI' 2 


17442 


281 7 i 


263* 








rST^ 3 


017530 


26381 


2656 








TTPJ V 


000064 


2169 










fTSf VI 


005436 


427 


49° 


1290 


1 3 2 1 * 


135 4 


fTYl SY 


001014 


341 # 


494 


660* 


7 1 1 * 


902* 


rTii IT 


001 240 


335 1 


1 195* 


1 1 96 








001410 


4271 


1 290* 


1 3 36* 


1 344* 


1 350* 


( 1 TC K V 


001 406 












TTPl DP 


001 104 






132 1 


1 334* 




rYPC TP 


001 1 10 


2b 3i 


497 * 


1 357* 






rirl AT 


0043T6 


722 


737 


730 






rifpi 


006356 


703 


710 


736 


flAQ 


873 


lYPI B 


006466 


1332 


133** 








tYP! C 


006502 


1 337i 










lYPl D 


006552 


1 350# 










TYPI C 


006546 


1347 


1349* 


1353 






IYPI L 


006600 


i 336 


1339 


1345 






TYPI N 


006340 




855 






OOQ 


TYPB Q 


017116 


1 48 


03 ' 


930 


1110 


111ft 
1116 


TYPI 1 


0063*2 


1 2809 


1283 








TYPl IM» 


017572 


148* 


657 


928 


1114 




TYPt t, ■ 


000454 


147 i 


148 


2055 


3680 




TYPt UC 


001 007 


3361 


493 


663* 


933* 


106 


IYP< X 


005364 


1080* 










TYPt , 


005334 




2094 




2108 


2118 


TYPJ 1 


OOl 1 00 


279 i 


1 1 0.8 


1110* 


1114 


1116* 


TYPj 1 a 


005 331^ 




2 1 03 








TYP( 3 


00 1 1 02 




657 


659* 


661 


662* 


Ivn! ? ' 


005250 


ft7ft« 




2100 


2 1 06 




TYPt 3 1 


005150 




2 1 34 








TYP( 4 « 


0051 02 




21 2^ 








TTPl E-l 


001 1 06 


282 1 




1331 






TYPF 1 


001 1 24 




1293* 


1 






TYPI 2 


001126 


291 i 


1 394 


132 






TYPI 3 


001130 


292* 










TYPI 4 


001 132 


293* 










TYPI 5 


001 1 34 












TYPI VC 


002650 


496 


65 '* 








TYPI AB 


002732 


669 


672* 








UXPJ PO* 


177640 


1 1 1 * 










Ul rl HI ■ 


1 77642 


112* 










UXPi RS* 


1 77644 


113* 










tiTal 
UIPJ K7" 


177656 


114* 










UlPt P0> 


1 77600 


107# 










Ulpf Pl« 


177602 


108* 










UZPt R2« 


177604 


109* 










UXPI P7« 


177616 


110* 










UMOl E * 


140000 


93* 










WA5JDP> 


000054 


171* 


1410* 








wBri A 


001214 


323* 


2341* 


2353 







1355 
946* 



1354* 



751 
875 



1279« 
2053 



1117» 
928 



811 
886 



9271 
890 



1119* 
930* 



2053» 
931 



932* 1108 
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SF:(5 0266 



wp.ri G 


001023 


248t 


15l6» 


2225* 


2359 












WBUl 


001212 


322« 


1593» 


2215 


2239» 


2351 










WBUl EA* 


000076 


180( 


1592» 
















WBUl PA« 


000074 


I79i 


1386 


2350 














MBUI ROB 


000100 


1R1« 


















WBUl SZ> 


000102 


182* 


















WPUl 12 


001216 


324* 


1594» 


1595» 


1596 


1604 


222S 


2227» 


2228 


2237* 


WCAI E 


015132 G 


34* 


2503 


2522* 














WCAj EE 


015232 G 


34* 


398 


2518 


5534* 












HTHi MTs 


000222 


89* 


















XCN1 


001026 


251* 


1547» 


1562 


1568 












trUG m 


000005 


153* 


552» 


2359 


2361» 












XPRI LG 


001030 


253* 


















yes 


001062 


272* 


1712 


1752 


1771* 


1791* 


1810» 


1833 


1835 


IR3R* 


ZCR( 


001202 


317* 


















ICWI EC 


001302 


363* 


I57l» 


2221* 


?224» 












• PAIS 


015576 


697 


858 


2607* 














, m 


017752 


31* 


187* 


200 


2041 


213* 


220 


226* 


22P» 


381 » 






1396 


1426 


1468 


1504 


1543 


1546 


1610 


2413 


2494* 






2553* 


2556 


2559* 


2562 


2565* 


2568 


2571* 


2575 


-2615* 






2688* 


















. AtS. 


017752 


000 



















401 * 402« 1136 ..n"* 
2541* 2544* 2547* J^SO* 
-2615* 2677* 26791 26?0«i 2682« 
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